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ABSTRACT 


The goal of the present work was to upgrade the data 
acquisition system (DAS) in the high-speed building of the 
Turbopropulsion Laboratory (TPL) and to develop a high-speed 
acquisition capability for pressure measurements for both the 
TPL and the new Gas Dynamics Laboratory (GDL). Based on the 
use of the Hewlett Packard HP9000 Series 300 Computer as the 
system controller, a 96-channel high-speed pressure DAS was 
developed using Scanivalve ZOC-14 modules and a CALSYS2000 
calibrator. The system allowed acquisition times for current 
wind-tunnel experiments to be revised from four minutes to 
eleven seconds. Also, new software was written to acquire 
data from existing rotary pneumatic Scanivalves and HP-IB 
compatible instrumentation so that all other existing 


acquisition capabilities were maintained in both laboratories. 
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I. INTRODUCTION 


The Turbopropulsion Laboratory (TPL) consists of two large 
buildings, each with a central data acquisition system (DAS) 
serving multiple rotating and cascade test rigs. One building 
is for low-speed and one is for high-speed flow experiments. 
The Gas Dynamics Laboratory (GDL) consists of a single large 
building, closely adjacent to the other two, for which 
components for a central data acquisition system had been 
purchased, but not installed, at the inception of the present 
work. The GDL houses three blow-down wind tunnel facilities 
and a shock tube. 

In planning the DAS for the GDL, commonality of the 
controller with the systems in the TPL was desirable in order 
to eliminate the need for students to learn different 
machines, to simplify the support task, and to interchange 
parts in the event of a failure. Since the TPL low-speed 
building was recently upgraded to use a Hewlett-Packard HP9000 
Series 300 computer, two additional similar computers were 
purchased, one for the DAS new DAS and one to upgrade the DAS 
in the TPL high-speed laboratory. Thus the task in the 
present work was two-fold. First, software was required to be 
generated on the HP9000 which would enable all Peeam dened DAS 
functions and experiments in the high-speed laboratory at the 


TPL to be maintained. Second, a high-speed scanning data 


system was required to acquire pressure measurements in the 
short (minutes) duration blow-down wind tunnel tests in the 
GDL. Future upgrading in all laboratories would clearly 
depend on the experience gained in developing the high speed 
scanning systen. 

The pre-existing DAS's at the TPL incorporated Hewlett 
Packard HP-IB compatible scanners, digital voltmeters, system 
voltmeters, frequency counters and a locally developed HG-78K 
controller for pneumatic Scanivalves. Prior to the HP9000 
acquisition, in earlier updates, the HP9830, HP9845 and HP1000 
computers had been used as system controllers. Because of 
almost unlimited run-times of the rigs at the TPL, and the 
need largely to record many channels of "steady-state" 
measurements, the data-recording times were not a critical 
issue. [For "real-time" pressure measurements, a 16-channel 
100 Khz capability was provided using a (non HP-IB) DMA input 
to the HP1000 from a now-obsolete HP5610A A/D converter]. 

Data acquisition was accomplished in the "steady-state" 
system, by computers executing individual data measurement 
instructions under program control. The maximum data 
collection rate was determined by the speed that the computers 
could execute individual instructions within the program 
between consecutive data measurement steps. Pressure 
measurements were made using the Scanivalve rotary pneumatic 
pressure sensing unit operated by the NPS HG-78K Controller. 


The Scanivalve unit sequentially stepped through its block of 


ports collecting single pressure data once every 1.5 seconds. 
The HG-78K stepped the Scanivalve to the specified measurement 
port on commands executed by the computer. In summary, the 
pressure data acquisition rate was limited by the speed of the 
peripheral devices and by the computer's speed in executing 
program instructions. 

The first task in the present work, to regenerate the 
software for the TPL "steady-state" DAS in HP BASIC 5.13 on ; 
the HP9000, served to become familiar with the computer and 
its programming, but no detailed report is included herein. 
The main task was to develop a high-speed scanning system for 
GDL, and this is documented in detail. 

The hardware for the new system included the HP9000 Desk 
Top Computer System, HP6944A Multiprogrammer, Scanivalve ZOC- 
14 Electronic Scanning Pressure Module and cCALSYS2000 
Calibrator. The HP9000 serves as the computer-controller 
using the BASIC programming language. Data and program 
storage for the HP9000 is handled by a HP9153C Disc Drive 
incorporating a 40 mega-byte hard drive and 1.44 mega-byte 
3.25" floppy drive. (The HP9153C replaced the older HP7906 
Disc Drive and HP7970E Tape Drive of the HP1000 system). 

The HP6944A combines several data acquisition devices (I/0 
Cards) into one unit. The significant feature of the HP6944A 
is its ability to perform specific data acquisition functions, 
and to control the data measurement steps without intervention 


from the host computer (HP9000). The HP6944A removes the 


individual data measurement instructions of the program from 
the acquisition process, resulting in data rates which are 
limited only by the speed of the individual I/O card and the 
non-Hewlett Packard device. 

In comparison with the TPL "steady-state" system, the ZOC- 
14 module replaces the low speed rotary Scanivalve and instead 
provides high speed electronic scanning of the pressure ports. 
The CALSYS2000 provides ZOC control and supplies calibration 
pressures to it, making the ZOC and CALSYS2000 a "packaged" 
pressure measurement systen. 

The software which was generated to integrate the HP9000, 
HP6944A and Scanivalve ZOC-14/CALSYS2000 system was designated 
as program SCAN_ZOC_05. The complete package of hardware and 
software is referred to hereafter as the ZOC-14 Data 
Acquisition System, or ZOC-14 DAS. 

In the present document, Chapter Two describes and 
discusses the development of the ZOC-14 DAS. The hardware, 
individual component operation, integration of the components 
into a complete system, and the application programs to 
operate the DAS are discussed in detail. It is hoped that 
this chapter will serve as a manual for the system, and as a 
guide to those responsible for future extensions. 

Chapter Three discusses the upgraded capabilities of TPL 
and GDL DAS's, potential extensions and outstanding issues. 
(The ZOC-14 DAS is fully operational, but requires resolution 


of these issues to optimize the system's performance). 


Finally, conclusions are drawn and a particular recommendation 
is made in chapter Four. 

Additional details are given in the Appendices. Appendix 
A contains the ZO0C-14 DAS application program flow chart, the 
application Beara SCAN _ZOC_05, and associated utility 
programs. The utility programs are used to read and display 
the results of the data compiled by the SCAN ZOC_05 program. 

Appendix B contains four earlier versions in arriving at 
the SCAN_ZOC_05 program. The program evolved in steps, as 
knowledge was gained on the hardware operation and 
integration, and software programming. Each program is 
annotated with peneinent information to describe the program's 
functional routines, and are reported as and aid to future 
programming. 

Appendix C contains a brief guide to managing data files 
provided by the ZOC-14 DAS collection process. A program is 
listed, and instructions provided, to view and delete selected 
data files from the hard drive. A sample print-out of the 
hard drive contents is provided, showing the data file listing 


and unique structure for the ZOC-14 DAS data files. 


Appendix D provides a listing of all major programs .. 


developed for use on the HP9000 for the TPL. A compilation of 
all programs, listed in groups of "directories" contained on 
the HP9153C hard drive, is provided. The major program 
listings are divided into the categories of Turbocharger 


Performance, AE4431 Turbomachinery Design, and several sample 


routines to operate devices, perform calculations, and 


manipulate files. 


II. ZOC-14 DATA ACQUISITION SYSTEM 


A. General Overview 
1. Hardware 
The zZOC-14 Data Acquisition System (DAS) hardware 
includes the Scanivalve ZOC-14 Electronic Pressure Scanning 
Module (Figure 1), the Scanivalve CALSYS2000 Calibration 
System (Figure 2), the Hewlett Packard HP6944A Multiprogrammer 
(Figure 3), and the Hewlett Packard HP9000 Desk Top Computer 


System and peripherals (Figure 4). 
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Figure 1 Z0C-14 Electronic Pressure Scanning Module 
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Figure 4 HP9000 Computer System 





2. Software and Literature 

The HP9000 is provided with BASIC 5.13 software. On- 
line compilation occurs when a program is executed by the RUN 
command. This user-friendly feature allows expeditious 
changes to be made in a program without the separate eane 
consuming re-compilation process required by other high level 
programming languages. The result is the ability to RUN a 
program, change the program, and RUN the program again with 


Minimal effort and time, making BASIC an ideal tool for an 


engineer. 


The BASIC software system and documentation includes 
the necessary firmware provided on seven 3.25" floppy disks 
and twelve manuals describing the loading, utilization, and 


maintenance of BASIC (Figure 5)[{Ref. 1 through Ref. 12]. 
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ewlett Packard BASIC Program and Literature 


The two volume Hewlett Packard Educational Package 
(Figure 5)[(Ref. 13 through Ref. 14] is vital to quickly learn 
BASIC and its implementation with the HP9000 and the line of 
Hewlett Packard peripheral devices. This package condenses 
all the pertinent information contained in the BASIC program 
manuals. The novice programmer will find that the Educational 
Package provides the necessary fundamentals in how to use 
BASIC. The advanced programmer will be regularly referencing 


the BASIC program manuals for his programming requirements. 


LO 


The HP14753A CAT Program Package (Figure 5)[{Ref. 15] 
comprises the firmware and documentation required to set-up 
and operate the HP6944A Multiprogrammer. Details of this 
package will be discussed later in this chapter. 

3. TPL ZOC-14 DAS Systen 

The TPL ZOC-14 DAS System is an integration of all the 
aforementioned hardware, firmware, and newly developed 
software into an application package. The capability of the 
system is the ability to collect pressure data on multiple 
channels at high sampling rates, reduce the raw data, and 
store the reduced data using a user friendly, menu-driven 
operating program on the HP9000 computer. A schematic of the 
ZOC-14 DAS System is illustrated in Figure 6. The HP9000 
computer is the central controlling device for the system. 
Software on the HP9000 controls data collection from the 
CALSYS2000 and HP6944A, data reduction, and data storage to 
the computer's hard drive and floppy drive. The HP6944A 
interfaces with the ZOC-14 modules providing electronic port 
selection, receiving analog voltages and converting to digital 
data. The CALSYS2000 is controlled by the HP9000, provides 
calibration pressure to the ZOCs, pneumatically sets the ZOC's 
operating modes, and provides digital data conversion of 
calibration pressure to the HP9000. The ZOC-14 module 
converts pneumatic pressures to analog voltage signals which 


are collected in the HP6944A. 
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Figure 6 ZOC-14 Data Acquisition System 


B. Hardware Description 


1. ZOC-14 Electronic Pressure Scanning Module 
a. Principle of Operation 

The ZoOC-14 is a 32 port electronically switched 
pressure sensing device. Internally, pressures are converted 
through semi-conductor strain gages to an analog voltage 
output signal for each selected port (Figure 7). The 
electronic switching feature allows the individual strain 
gages to be selected at random, and the output voltage signal 


to be read. 
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Figure 7 7ZOC-14 Module Diagram 


Each ZOC contains a series of valves that are 
pneumatically switched to set an operating mode. Shown in 
Figure 8 are the ports Pl through Px which are connected by 
pneumatic pressure tubing to the apparatus or probe where 
pressure is to be measured, such as the model in a wind 
tunnel. The Calibration Manifold and Sensor Reference 
Pressure Manifold are connected to the CALSYS2000 to receive 
a reference calibration pressure to be measured by the Zoc for 
calibration purposes. CAL Control (CTL1) and Px Control 
(CTL2) are pneumatic control lines that position the valves to 
set the required operating mode in the ZOC. CAL and Px 


control pressures are provided by the CALSYS2000. 
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Figure 8 ZOC-14 Valve Body Schematic 


The ZOC operates on the principle "ZERO OPERATE 
AND CALIBRATE"; hence the name "ZOC". This principle involves 
a two phase sequence. The first phase sets the ZOC into an 
"OPERATE" mode and experimental pressure data at pressure 
ports Pl through Px are converted and recorded. The second 
phase sets the ZOC into the "CALIBRATE" mode. The CALSYS2000 
provides a calibration pressure through the Calibration 
Manifold and Sensor Reference Pressure Manifold to each strain 
gage. Calibration pressure data are then collected from the 
ZOC for each port by the HP6944A. The HP9000 collects the 
pressure data from the HP6944A and digital converted 
calibration pressure data from the CALSYS2000. These two sets 
of data are plotted against each other to get a calibration 
curve for each ZOC strain gage. 

Figure 9 illustrates the ZOC's four modes of 


operation. In the OPERATE mode, Pl -pressure is routed to the 
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Figure 9 ZOC-14 Pneumatic Switching Modes 


strain gage, and the Calibration Manifold is isolated. In the 
CALIBRATE mode, calibration pressure is routed to the strain 
gage, and the Pl pressure is isolated. The PURGE and LEAK 
TEST modes are used for clearing pressure lines and for 
diagnostic checks, respectively. | 

The Multiplexer and mipiewediar section (Figure 8) 
facilitates the ZOC's high speed scanning capability. The 
multiplexer is driven by a five bit address input signal (AO 
through A4) from the HP6944A, selecting a specified port from 
imeco o2 in binary code. The ZOC's electronic module is 
illustrated schematically in Figure 10. The analog output 


Signal processing is accomplished within the electronic 
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Figure 10 
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section of the ZOc. 

Reference 16 provides all pertinent 
specifications, descriptions of the design and operation, and 
is the source document for the above technical information on 
the ZOC-14 Module. 

b. ZO0C-14 Enclosure 

The ZOC-14 Enclosure was designed and built at NPS 
to provide a mobile and versatile module which was convenient 
for electronic and pneumatic connections, and provided 
protection in the laboratory environment. Components in the 
enclosure include one ZOC-14 Module (Figure 1), a 115 VAC 
power supply, a BNC connection for the output signal, Cannon 
plugs for the ZOC address input, and a pneumatic connection 
plate for measurement, control, and calibration pressure lines 
(Figure 11). 

Each Px port on the ZOC-14 module has a 
corresponding port connection on the pneumatic connection 
plate. The connection plate port numbers 1 through 32 
correspond to the ZOC's ports as selected by the binary 
address code. The Px Control, GAG Contz01 ,SGAL, anadsvRERepores 
on each valve block (Figure 7) are each connected to a common. 
line as illustrated in Figure 12. The Px Control line is 
routed to port number 33, CAL Control to port number 34, CAL 
to port number 35, and REF to port number 36. Ports 37 


through 48 are not used. 


17 


a4 


Wis 


Yyy 
Y 


Vi 
VY “oy, 
A yy 24 
Wy yyy. dp 73g = o, ies 


4 Vin 


Yj: 
e/, 


Y 
Up Ye 
Miia 


Ly 
Bie 
ty 





The enclosure's electrical wiring is illustrated 
schematically in Figure 13. The two-five pin Cannon plugs are 
wired in parallel to jumper ZOC address line connection points 
between adjacent enclosures. This feature allows for one 
address line from the HP6944A to be connected to the first 
enclosure Cannon plug. The second enclosure receives its ZOC 
address signal from the second Cannon plug on the first 
enclosure by a jumper line. The third and followies 
enclosures receive their ZOC address signals in the same 
sequence of connections. 

A significant capability of the ZOC address 


control feature, in connection with the HP6944A, is the 
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Figure 12 
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ability to simultaneously collect pressure data from 
corresponding ports on a multiple ZOC configuration. This 
Capability could play a significant role in determining the 
pressure behavior at two or more different points at the same 
instance in time. The number of instantaneous data points is 
determined by the number of ZOCs connected into the ZO0C=-14 DAS 
Systen. 
2. CALSYS2000 Calibration Module 
a. Description 

The CALSYS2000 interfaces the ZOC module with the 
HP9000 computer by setting the ZOC mode selection as commanded 
by the HP9000, providing calibration information: to the 
HP9000, and sending a reference calibration pressure to the 
zOC for calibration purposes. Figure 14! shows a front view 
of the CALSYS2000 module. 

The CALSYS2000 is comprised of a Calibration 
Module (CALMOD 2000) and a Power and Solenoid Control (PSC 
2000) module. Figure 15 illustrates the external pneumatic 
and electrical line connections between the two modules, the 
nitrogen supply source and ZOC pneumatic line connections as 
seen in a rear view of the CALSYS2000 as it is installed at 


the TPL. 


1 Figure 14 is found in Ref. 17, page 10, as Figure l. 
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Figure 14 CALSYS2000 Calibration System 


b. Calibrator Module (CALMOD 2000 





The CALMOD 2000 provides the electronic interface 
with the HP9000 through the serial RS-232C data link with a 
built-in processor. The processor responds to various 
commands from the HP9000 and issues control signals to actuate 
an array of solenoids within the CALMOD and PSC. The 
selective setting of the solenoids routes reduced nitrogen gas 
pressure to set the ZOC modes, and provide a regulated 
calibration reference pressure for ZOC transducer calibration. 
An internal Pressure Standard module samples the calibration 
pressure and provides a proportional analog voltage value to 


the processor. The processor's internal A/D and mathematical 
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Figure 15 CALSYS2000 External Line Connections 


processors return a digital measure of the pressure in either 
psia or inches of mercury. The CALMOD is currently set for 
inches of mercury. The processor provides this digital 
pressure value at the front window on the CALMOD (item 5, 
Figure 14), and also returns the value to the HP9000 following 
a "read pressure" command. 

The CALMOD has three manually adjustable pressure 
regulators (items 6,7,8 in Figure 14) and associated pressure 
display buttons (items 2,3,4 in Figure 14). These regulators 
provide three different reference calibration pressures that 
the ZOC uses for calibration. During the calibration mode, 


each one of the three calibration pressures are sequentially 
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sent to the ZOC and the Pressure Standard. To calibrate the 
ZOC for positive pressures, the calibration pressure is 
provided through the Calibration Manifold to the strain gage 
transducers. To calibrate the ZOC for negative pressures, the 
calibration pressure is provided through the Sensor Reference 
Pressure Manifold to the backside of the strain gage 
transducer. Pressure data from the CALSYS2000 and ZOC are 
collected by the HP9000 and reduced to obtain calibration 
curves for each ZOC transducer. 
Figure 16% shows the rear panel of the CALMOD 2000 
with all the installed connection ports. Figure 15 
illustrates the ports currently used at TPL. The CALMOD 
receives a common low-pressure supply of nitrogen gas to the 
Solenoid Supply and Regulator Supply connections. Regulated 
calibration pressure is supplied to the ZOC Calibration 
Manifold through the CAL(+) connection, and the Sensor 
Reference Pressure Manifold through the REF(-) connection. 
Figure 17° shows the ereumatic lines between the 
CALSYS2000 and ZOC units. The TPL currently has two 15 psid 
and one 50 psid ZOCs. These ranges require a nominal 90 psi 
Regulated (Instrument) Air Supply to properly operate*. The 


solenoid supply is 90 psi for both the CALMOD and PSc. 


* Figure 16 is found in Ref. 17, page 12, as Figure 2. 


° Figure 17 is found in Ref. 17, page 21, as Figure 5. 
* Refer to Ref. 17); dwg 162027 sht 1 of 970 in back wee 
ref. 17, . 
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c. Power and Solenoid Control Module (PSC 2000) 
The PSC provides the CALSYS2000 electrical power 


and pneumatically controls the z0Cs. Figure 18 shows the rear 
pamel of the PSC with all external connections. Electrical 
power is supplied to the CALMOD through an electrical jumper 
between the Power Out (item 3 in Figure 18) and Power In 
terminals shown in Figure 15. The PSC contains the solenoids 
mel route Control air, CAL CTL and Px CTL (item 5 in 
Figure 18) to the ZOC for mode selection. These two solenoids 
are controlled by the CALMOD through an electrical cable 


connecting the Solenoid Control connections (item 3 in 
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Figure 16 and item 4 in Figure 18). ZOC control gas to the 
solenoids is supplied at 90 psia from a high pressure nitrogen 
cylinder through the Supply port (item 7 in Figure 18). 
dad. CALSYS2000 Operation 
The CALSYS2000 communicates with the HP9000 
Computer through the RS-232C serial data link using ASCII 


character format commands. The commands used for the ZOC-14 
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Figure 18 PSC 2000 Rear Panel 
DAS are of two types: 


# Commands from the HP9000 to set ZOC and CALSYS2000 modes 
by the actuation of control solenoids. 
# Commands to provide pressure data to the HP9000, read from 
the Pressure Standard. 
The command format for communications requires the HP9000 
command statement to have the following ASCII character code 
format: 


aCC (CR) 
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The "a" is the CALMOD address character which is currently "1" 
for the only CALMOD installed in the CALSYS2000 at the TPL. 
A second CALMOD would have the address character of "2". The 
"CC" part is the applicable command code such as "PH" which is 
discussed later. The "(CR)" is for a ASCII carriage return 
character which is "13" in decimal format. 

The commands used to set ZOC and CALSYS2000 modes 
are summarized below: 

OPERATE mode - This mode allows pressure to be measured by 
the ZOC by setting the valves in the ZOC to route Px air 
directly to the strain gage. Calibration functions are at 
idle. The OPERATE mode is the CALSYS2000 condition when it is 
first initialized or powered-up. — 

# aIc Initialize Calibrator to set the CALSYS2000 to 
its power-up condition 

CALIBRATION mode - This mode is set at the ZOC. 
Calibration reference pressure is sent to the ZOC, and all gas 
is routed to the Pressure Standard for display on the CALMOD 
window, and made available to the HP9000. 

# aPH Route high pressure gas from Regulator #1 to 
the ZOCs through the Calibration Manifold 


# aPM Route medium pressure gas from Regulator #2 air 
to the ZOCs through the Calibration Manifold 


@ aPL Route low pressure gas from Regulator #3 to the 
ZOCs through the Calibration Manifold 
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# aZO Gas in the Calibration and Reference Pressure 
Manifolds is equalized to atmopheric 
pressure in these manifolds 


# aNL Route low pressure gas from Regulator #3 to the 
ZOCs through the Reference Pressure Manifold 


# aNM Route medium pressure gas from Regulator #2 to the 
zOCs through the Reference Pressure Manifold 


@ aNH Route high pressure gas from Regulator #1 to the 
ZOCs through the Reference Pressure Manifold 

Read Pressure - The CALMOD is asked for the current 

pressure value being sampled by the Pressure Standard. This 

command is used only by the Z0C-14 DAS program during the 

Calibration Mode. When the CALSYS2000 is in its "initialized 


condition", the Pressure Standard reads atmospheric pressure. 


# aRP Reads the pressure sampled by the Pressure 
Standard and returns the value in inches of 
mercury in ASCII character format: 

"+ /=-1.23456E+78 at a" 

Reference 17, Chapter 4, discusses the details and 
available command codes use by the CALSYS2000. The above 
codes are only used in the ZOC-14 DAS program with the HP9000. 
The CALSYS2000 is designed to operate from any PC using a 
standard modem control progran. 

The HP9000 and BASIC programming language required 
a modification of the CALSYS2000's command format factory 
settings. The Line-feed (LF) ASCII character in the command 


line corrupted the command message to the CALSYS2000 on any 


subsequent command following the initial HP9000 command. 


ag 


Deletion of the LF from the HP9000 command resulted in 
uninterrupted command of the CALSYS2000. 

fIn:- its factory configuration, the CALMOD 
"handshakes" with a host computer using a "prompt record" to 
respond to a host computer command. (See Reference 17). 
Following a command issued to the CALMOD, the HP9000 would 
receive an interrupt error and halt the program. The BASIC 
line commands to handle the CALMOD prompt record could not be 
determined. Subsequently, the factory-set prompt record 
"(CR) (LF) (?)" was deleted to allow the HP9000 to continue 
without an interrupt error. Deletion of the prompt record 
"(CR) (LF) (?)" was accomplished by setting the "Null" prompt 
record. The Null prompt record was set into the CALMOD 
processor using the command " SMON " followed by " BP 1 ". 
The commands were communicated using a 386 PC with a moden- 
control program that performed computer to computer 
communication. The first command set the Null prompt record, 
the second command "burned" the Null prompt record into the 
CALMOD's PROM. } 

e. CALSYS2000 Gas Supply System 

The CALSYS2000 requires instrument quality air 
meeting ISA-S7.3 (Ref. 17, page 18]. The use of commercial 
bottled nitrogen gas more than satisfied this requirement. 
The supply system for the CALSYS2000 at TPL is illustrated in 


FIgtume: 19. Nitrogen gas is reduced through a_ standard 
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regulator set at 90 psi, providing Solenoid Control and 


Regulator Air. 


Regulator Set 
CLow & High Press Gages) 






Nitrogen Bottle 


To PSC 20008 


Note: Low pressure set to 90 psig 


Figure 19 CALSYS2000 Nitrogen Supply 


A cut-out valve (Figure 15) is installed between 
the PSC and CALMOD to minimize nitrogen gas consumption. The 
valve is set closed (handle down) when the CALSYS2000 is used 
in the OPERATE mode. The valve is opened for the CALIBRATE 
mode. Higher gas consumption occurs due to the design of the 
Pe ilators in the CALMOD, which bleeds off gas to mean a 


constant pressure setting. 
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3. Hewlett Packard Multiprogrammer (HP6944A) 
a. General Description 

The HP6944A (Figure 3) is a self-contained module 
with removable I/O cards which control various device 
operations or functions and interface with the HP9000. I/O 
cards are easily installed or removed by sliding the card into 
or out of an I/O slot in the enclosure. The HP9000 
communicates with the I/O card through the HP6944A internal 
processor and Backplane Edge Connector which the installed I/O 
card plugs into. Electrical power supplies for the I/O cards 
are contained in the HP6944A enclosure. The HP6944A can 
support up to 16 I/O cards, depending on the cards' electrical 
power requirements. Figure 20 shows the HP6944A with the 
eight I/O cards and associated "edge plane" connecting cables 
used for the ZOC-14 DAS. 

Reference 18 provides a detailed description of 
the HP6944A and a brief description of all the I/O cards 
available for the HP6944A. The I/O cards used in the ZOC-14 


DAS are described in the following paragraphs. 


b. I/O Cards 


(1) 500 Khz A/D Card (HP69759A) -° 
The A/D card provides analog to digital signal 


conversion from the ZOC-14 module. One A/D card is required 
for each ZOC. The card has a capability of performing A/D 


conversions at a rate of up to 500 Khz. The card is factory 
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Figure 20 HP6944A Rear Panel 
set to handle input analog voltages between +/- 
The A/D process provides a 12 bit resolution 


\ 





he 





10 volts 


(Ref. 19). 
resulting in a 5 mV digital output voltage resolution. 


The HP1417A Chaining Cable (Figure 215) interfaces 
The 


the A/D card with the Memory Card, Pacer Card and ZOC. 


digital output voltage value from the A/D card is read to the 
The Pacer Card's 


Memory Card through the HP1417A cable. 
trigger signal and ZOC voltage signal are received by the A/D 


card through Chaining Cable input leads. 


19 as figure 2-2. 





> Figure 21 is in Ref. 
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Figure 21 A/D-Memory Chaining Cable 


emo Card (HP69791A 





The Memory Card is a digital data storage 
device used here to store ZOC voltage values from the A/D 
Gard: Data are stored in 16-bit words and the storage 
Capacity is 65,536 words of RAM [Ref 20]. Data words can be 
written into the RAM at rates of up to 800 Khz. The data are 
extracted from the RAM into the HP9000 RAM at rates of up to 
30 KHz. The difference in data rates does not limit the ZOcC- 
14 DAS process. The DAS program is designed to collect and 
store all raw pressure data on the Memory Card for each 
acquisition cycle before any data are transferred to the 


HP9000. 
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(3) Counter/Totalizer Card (HP69775A) 


The Counter Card is use in conjunction with 
the Timer/Pacer Card to count the number of events that occur 
during a specified data collection cycle. A trigger signal 
from the Timer/Pacer Card provides the signal pulse to step 
the Counter Card's integer "count-up" function. The Counter 
Card has two counting modes that count at rates of up to 1 Mhz 
(Ref. 15 and Ref. 21). The mode used in the ZOC-14 DAS 
process counts from -32768 to 0. This capability allows 1023 
samples per port of data, or 1023x32 events for a maximum of 
32736 total data points per run. 

The Counter Card provides the count value at 
the card's Edge Connector (Figure 22°) as an External Count 
Output. The output is a 16-bit number, which is the count 
value as the card is counting. Five of the sixteen bits (00 
through 04) are used to drive the ZOC address value (bits A0O- 
A4) through the Auxiliary I/O Logic Interface Device 
(Figure 6). 

(4) Timer/Pacer Card (HP69736A) 

The Pacer Card 1s a square wave pulse 

generator with a programmable pulse width feature. The pulse 


width is programmable down to one micro second duration or a 


6 Figure 22 is figure 3-5 in Ref. 21. 
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Figure 22 HP69775A Edge Connector 


one MHz square wave’. The Pacer Card provides the trigger for. 
the A/D Card and timing step trigger for the Counter Card. 
c. Multiprogrammer Configuration 


(1) ZOC-14 Integration 
The ZOC address format and the Counter Card's 


External Counter Output are the common link that interface the 
two devices. The Counter Card's count-up feature is used to 
control the ZOC port address. Starting at "-32", for which 
the binary equivalent is "00000" at the card edge, the card 
counts up to zero. Since 00000 is the binary number which is 


required to set the ZOC address to port number "1", the 


7 Refer to Ref. 15 and Ref. 22 for details on the 
HP69736A. 
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counting process steps the ZOC from port 1 to port 32. The 
count-up process realizes the following sequence: 


decimal count binary count ZOC port address 


=32 00000 Ol 
=o Q00001 02 
=29 00010 03 
-O2 L110 eek 
=O po ba 32 


Initiating the count-up from "-64" results in two scanning 
passes through the 32 port ZOC-14 since only the last five 
bits are identified in the ZOC address. Selection of the 
count-up value determines the number of scans through all the 
ZOC's ports. 

The Counter Card's external output is set to 
0.0-0.5 volt for "logic low" and to 2.0-5.0 volt for "logic 
high" (Ref. 21, page 1-2]. The ZOC address bits (AO-A4 in 
Figure 10) require an open collector Transistor-Transistor- 
Logic (TTL) driver to provide a ground "low" and an open 
phagh" signal. The Auxiliary I/O Logic Interface Device 
(Figure 23) was designed to interface the HP69775A with the 
ZOC. Figure 24 is the electrical schematic of the device. 
The TTL 7404 is powered by a 5 volt regulator [Ref. 23]. The 
regulator receives 15 VDC power from the Counter Card's 


external edge connector. 
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Figure 24 Auxiliary I/O Logic Interface Device Schematic 
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(2) Oe Cara. olot Confiquration 


The current configuration of the I/O cards and 
HP6944A provides the capability to collect pressure data from 
up to three ZO0C-14 modules. Figure 25 illustrates the I/0 


card configuration and wiring to support the full ZOC-14 DAS. 


HP69791A ~y HP697S9A AD HP69736A Pacer HP6977SA Counter 
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Figure 25 HP6944A I/O Card Configuration Diagram 


Figure 26 shows the ZOC-14 DAS (not including the CALSYS2000) 
with one ZOC-14 module and all electrical lines connected. 
The HP6944A has a power limitation determined 
by the built-in power supplies. Table I illustrates the 
HP6944A power supply availability and the I/O card power 
requirements. The HP6944A provides one 5 volt, one 12 volt 


and three 18 volt power supplies. The maximum amperage 
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‘Figure 
ratings are shown in Table I. The power required by the I/O 
cards are shown in amperes. The upper value in the table is 
the rating per card. For the HP69791A and HP69759A cards, the 
second value is the total rating for three cards of each type 
(which are required for three ZOC modules). The total 
amperage required for the three HP69759A cards exceeded the 
capacity of a single 18 volt power supply. Therefore, the 
first HP69759A card receives its power from the first 18 volt 
power supply. The second and third HP69759A cards receive 
their power from the second 18 volt power supply, from which 
they draw a total of 0.8 amperes. The HP69759A cards were set 


by the factory to draw power from the first 18 volt power 


40 


Table I HP6944A Power Supply Allocation 













| Device | Power Supplies 


HP6944A +S; +12V =12V 
16.0A | 2.0A 2.0A 


(1) (1) (1) 


| cards | Power Required 


HP69791A 3.6A 
10.8A 


HP69759A On7A (1)0.4A | (1)0.075A 
HP69759A O0.7A (2)0.4A | (2)0.075A 
HP69759A 0.7A (2)0.4A | (2)0.075A 


pupss736a | o.7sal | | 


TOTAL 14.4A | 0.12A] 0.15A} (1)0.52A | (1)0.225A 
— ee (2) 0 680A} (2)0.150A 




























supply. Access to the second 18 volt power supply required 
alterations to be made to the Power Supply Jumpers for the 


second and third HP69759A cards [Ref. 19, page 3-1]. 
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C. ZO0C-14 DAS Software Description 
1. General Overview 
Hewlett Packard's BASIC 5.13 program language is 
utilized by the HP9000. Code is written in this language to 
communicate with the various data acquisition devices, process 
data and store the data to disk, and to output results on a 
printer or plotter. The HP6944A, a central component of the 
ZOC-14 DAS, is a relatively complex device which can perform 
numerous functions depending on how it is configured. The use 
OlG eal HP6944A here required the generation of a unique 
software package in BASIC that integrated the HP6944A internal 
processor with the configuration of I/O cards selected here. 
The HP14753A Computer Aided Test (CAT) Programming Package 
provided the means to generate the software for that 
interface. 
2. Data Acquisition Program 
a. HP14753A CAT Program Package 
The HP14753A CAT Programming Package 
(Figure 27) (Ref. 15} is software (and documentation) required 
to operate the HP6944A and the associated I/O cards. The 
programmer uses the Hewlett Packard provided skeleton CAT 
example program to develop a tailored application program to 
perform specific processes. The ZOC-14 DAS application 


program, was developed using the CAT Programming Package, to 
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Figure 27 HP14753A 





4 ZY; 


CAT Programming Package 





perform ZOC data collection, reduction, and storage titled 


"SCAN _ZOC_05" (Appendix A, Figure Al7). 


The CAT programming package provides’ the 
capability of integrating selected I/O cards into a unique 


function that combines the cards' capabilities into one 


function. Two particular applications used here combined the 
A/D and Memory Cards into a "Buffer" function, and the Pacer 
and Counter Cards into a "Timer" function. 

The Buffer function performs the task of 
collecting analog data at a collection rate controlled by an 
external trigger device, converts the analog data to digital 
format, and temporarily stores the data. The Buffer function 
allows the high speed data collection rate of 500 KHz, which 


is only limited by the A/D conversion rate. Figure 28 is a 
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schematic of the wiring that links the A/D and Memory Cards 


together through the HP1417A Chaining Cable (Figure 21). 
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Figure 28 Buffered A/D Function Schematic 

The Timer function provides a square wave trigger 
pulse of a specified pulse width and a specified number of 
repetitions. The pulse width determines the data collection 
rate. In the present application, the repetition number 
divided by 32, the number of ports on the ZOC-14, determines 
the number of scans the ZOCs undergo. The repetition number 
is therefore always a multiple of 32. Figure 29 is the 
schematic of the wiring that links the Counter and Pacer Cards 
together. The edge connectors and cables which were made to 


implement the wiring shown in Figure 29, can be seen in 
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Figure 29 Timer Function Schematic 


Figure 23. 

The CAT programming process requires 
‘identification of the installed I/O cards and their initial 
function settings through a user-specified "Configuration 
File". The file provides the flexibility of writing a general 
application program that works readily with various 
configurations of the HP6944A(s). Each configuration file is 


unique to each HP6944A hardware configuration’. 


§ The Configuration File must accurately reflect the 
HP6944A(s) I/O card configuration or a software error occurs. 
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Print-outs of the ZOC-14 DAS program Configuration 
File are listed in Figure Al’. (Note that the names listed 


in Figure Al are variables used by the program SCAN ZOC 05.] 


b. DAS Program Design 


(1) Program Design Features 
The ZOC-14 DAS Program SCAN_ZOC_05 


incorporated several design features intended to obtain a 
user-friendly data collection program. The program 
@ has full control of the ZOCs and CALSYS2000 as interfaced 
with the HP9000 and HP6944A 


# utilizes the Zero Operate Calibrate principle for data 
collection from the Z0Cs 


# uses keyboard function keys to allow selection of various 
operations within the program 


# creates and identifies data files automatically based on 
the type of data, date, and run number 


@ offers data file storage on hard and floppy disk drives. 


(2) Data Files 


Three different data files are used when 
acquiring data from each ZOC-14. Implementation of the Zero, 
Operate and Calibrate procedure required the data acquisition 


process to 
# collect and store raw pressure data from the ZOCs 


° Reference 15 provides details on Configuration File 


creation and alterations. 
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@ collect and store calibration pressure data from the ZOCs 
and corresponding applied pressure standard data from the 
CALMOD 2000 


@ reduce the raw pressure date using calibration curves and 
store the reduced pressure data. 


The program uses BDAT type files with Integer 
and Real number formats’®. The raw data file is in Integer 
(2-byte) format, with each record corresponding to an output 
voltage value. 

The calibration file uses a Real number (8- 
byte) format storing data from a 33 row by 11 column array!??. 
Each row (1-32) corresponds to a ZOC Port. The Zero (0) row 
contains ZOC-specific parameters. Columns 4-10 in the Zero 
row contains pressure values measured by the CALMOD Pressure 
Standard for each of the seven calibration settings. Columns 
4-10 (rows 1-32) contain voltages output by the ZOC for each 
of the calibration pressures applied through the CAL and REF 
manifolds. Columns 0-3 (rows 1-32) contain calibration curve 
fit coefficients for a third order polynomial. These 
coefficients are derived using the Least Squares numerical 
curve fit method using the recorded voltages (rows 1-32) 
plotted against the applied (standard) calibration pressures 
(row zero). Each row in the array corresponds to a record in 


the calibration data file consisting of 8x33 bytes. 


10 Refer to Ref. 6, chp 7, for details and advantages of 
BDAT format files compared to ASCII files. 


‘) Refer to Figure Al7, lines 2350 to 2440. 
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The reduced data file uses a Real number (8- 
byte) format, storing data from a n-row by 33 column array. 
Each row corresponds to one scan of a ZOC. The first column 
(0) stores the nth-scan number. Columns 1~32 correspond to 
the output of each ZOC port converted to pressure units 
(inches of mercury). Each array row occupies a record of 8x33 
bytes in the reduced data file. 

Figure 30 provides a sample listing of the 
data files created in acquiring data using three (3) ZOCs in 


one (1) acquisition cycle. 


:,700,0,1 
VOLUME LABEL: DATA 
FILE NAME PRO TYPE REC/FILE BYTE/REC ADDRESS DATE 


2W1205161 BDAT 97 2 $92 16-May-92 
2W2205161 BDAT 97 2 594 16-May-92 


2W3205161 BDAT 97 2 596 16-May-92 
201205161 BDAT 33 88 598 16-May-92 
202205161 BDAT 33 88 611 16-May-92 
203205161 BDAT 33 88 624 16-May-92 
ZR1205161 BDAT 3 637 16-May-92 
2R2205161 BDAT 3 642 16-May-92 
ZR3205161 BDAT 3 647 16-May-92 





Figure 30 ZOC-14 DAS Data File Listing 


Each data file name uses the format, 

<ZW><ZOC #><Date><Run #> 
"ZW" identifies raw data files. ("Zc" identifies calibration 
data files, and "ZR" identifies reduced data files). The Zoc 
# is for ZOCs 1-3. The format for the date is YMMDD. The Run 
# has values 1-99. Hence, for example, the file ZR1205161 


holds reduced data for ZOC #1 collected on May 16, 1992 during 
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Run #1. The REC/FILE column shows three records, identifying 
that three scans of data for the 32 ports were collected. The 
BYTE/REC column identifies 264 bytes for each record (scan), 
corresponding to the 8x33 bytes for the row format addressed 
in the previous paragraph. 

(3) Program Functional Flow Process 

The program SCAN_ZOC_05 follows the functional 
flow process illustrated in Figure A2 through Figure Al6 in 
Appendix A. The program relies on extensive use of 
subroutines to maintain program architectural simplicity 
through use of the CALL statement. The option to use one to 
three ZOCs requires only the repetitious use of the different 
subroutines. 

Function keys are used for program control. 
The main program is segmented into blocks. Each block or set 
of blocks is initiated by a function key (ie. fl through f8). 
The "GOTO Hold" statement executes a continuous loop sequence 
which is only interrupted by a function key selection, thus 
providing the mechanism for program control. 

The storing of raw pressure data and 
calibration data onto the hard drive allows repeated data 
collection runs. The data reduction routine is function key 
selected and can be performed after each data collection run, 


or at any later time. The program prompts the user for data 
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file name information when data reduction is not selected 


immediately following a data collection run. 


Cx DAS Program Use 


(1) HP9000 Operation and Rudimentary Commands 
The HP9000 is the controlling unit for the 


ZOC-14 DAS. Its operation is similar to that of a desk top 
computer system with no complex initialization or "boot-up" 
process. 

The HP9000 has its own built-in boot-up 
routine as an integral part of BASIC [{Ref. 4]. The boot-up 
process addresses the "SYSB51.HP-UX" file on the hard drive's 
root directory for loading various function drivers called 
"Binaries". Integration of the HP14753A CAT programming 
package in the present work required modification to the 
SYSB51 file to provide sufficient RAM space to operate the CAT 
programs’*. 

The boot-up process is initiated when power is 
applied to the HP9000. The CRT begins displaying a series of 
screens during the boot-up. With the modification which was 
made to the SYSB51 file, completion of the boot-up process now 
gives the screen display shown in Figure 31, which is 


generated by the AUTOST program file. This screen, referred 


12 Refer to Ref. 4, chp 5 and Ref. 15, pg. 1-5, for 
details on the SYSB51 file modifications. 
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to as the "Main Menu", provides a function key selection menu 


to access the operations available on the HP9000. 


HPS9000 Series 300 Computer Data Acquisition System 
Item: Select Function Key 


Turbocharger Lab (*) Fl 
Transonic Compressor Lab (*) F2 
Turbine Design Programs (*) F3 
Multi-Programmer Opertion (HP6944A) F4 
Work directory (*) F5 
Backup Files F6 
HP9000 Program Listing and Information F7 
Exit Menu F8 


Note: Binaries required for HP14753A CAT program are loaded 
to operate the HP6944A Multi-programmer. 
Additional binaries are loaded with selection (*). 


If Error 2 occurs: Memory overflow; reboot system using 
SYSBOOT statement and reselect desired directory. 


User 1 Caps Command 
TURBO COMPRESS DESIGN 4HP14753A WORK BACKUP PROGRAM EXIT 
CHARGER LAB CAT DIR LISTINGS MENU . 


Figure 31 HP9000 Initial CRT Screen Display 





Selection of the "F8" function key clears the 
screen and places the user in the root directory. At any time 
when the term "idle" is displayed in the lower right corner of 
the CRT screen, there are no programs in execution, and the 
user can make keyboard command entries. 

There are five essential, rudimentary commands 
that the user needs to know to use BASIC!*. These commands 
are LOAD, RUN, CAT, MSI, and RE-STORE. The LOAD command will 
load the program which is named between quotes into the HP9000 


RAM. RUN will execute the program currently in RAM. CAT will 


13 It is recommended that the user reviews Ref. 13 and 
14 for an operational understanding of BASIC. 


51 


list to the CRT screen all the files on the current storage 
Grive and directory. MSI ("MASS STORAGE IS") will select a 
directory and/or drive to be what is named between quotes. 
The RE-STORE command copies the program in the RAM to the file 
on the currently named MSI. Caution must be applied when 
using the RE-STORE command. This command will write over any 
previously existing program with the same name, resulting in 
the loss of the previous progran. 

Return to the Main Menu is possible from any 
directory on the hard drive. Located on the root directory of 
the hard drive is a program called "RETURN MAIN". Load the 


program by typing the following commands: 


# LOAD "/RETURN MAIN", followed by the <Enter> key 


# RUN, followed by the <Enter> key 


The "/" character identifies the root directory. The above 
two steps apply for loading and executing any program. 
(2) Operating the ZOc-14 DAS Program 
The Z0OC-14 DAS Program uses function keys and 
selective keyboard data entries. The following steps should 
be followed to operate the ZOC-14 DAS. 
a Main Menu: Depress function key F4 (Figure 31) to 
call-up the HP Multi-programmer Operating Menu. 


2. HP6944A Operation Menu: Depress function key Fl to 
call-up the ZOC-14 Modules Menu. 
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a 


Zoc Electronic Pressure Module Operation Menu: 
Figure 32 is displayed. 


Zoc Electronic Pressure Module Operation Menu 


Item: 


Select Function Key 


Scan 1-3 ZOC-14 Modules (32 ports ea) Fl 
Read reduced data from ZOC-14 module F2 
Plot reduced data from ZOC-14 module F3 
Read CALSYS 2000 calibration pressures F4 
Read tabulated calibration data F5 
Plot Calibration data F6 


HP6944A Main Menu F7 
Exit Menu F8 


User 1 Caps Command 


SCAN 1-3 READ ZOC PLOT ZOC READ TABULATE PLOT CAL HP6944A EXIT 


ZOCS 





Menu 


DATA DATA CALSYS20 CAL DATA DATA MENU MENU be 





Figure 32 Zoc Electronic Pressure Module Operation 


Check: Ensure that the CALSYS2000, ZOC Enclosure and 
HP6944A are properly connected and energized. 


Check: Ensure that the nitrogen gas supply is 
connected to the CALSYS2000 and about 90 psi is set 


on the regulator. 


CALSYS2000 Regulators: Set the High, Medium, and Low 
Pressure regulators on the CALSYS2000. The three 
pressure values should be evenly distributed within 
the span of the ZOC's positive pressure rated range. 
Precise settings are not critical. Since 50 psid 
and 15 psid zZOCs are used presently, set the 
regulators between 0-30.6 inches of mercury to avoid 
over pressurizing the 15 psid ZOCs. 


CALSYS2000 Verification: Select function key F4 
(Figure 32) to cycle the CALSYS2000 and verify the 
pressure settings. (Note: This should be done 
whenever the CALSYS2000 is first energized to clear 
the RS-232C of noise). Completion of this step 
returns the HP9000 to the ZOC operation menu. 
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8. Load SCAN ZOC 05: Select function key Fl (SCAN 
ZOCS) from the ZOC operation menu to initiate ZOC 
scanning program SCAN ZOC_05. 


9. Entroduction. A series of screen displays occur 
while SCAN zOCc_ 05 is loading. The "Introduction" 
screen (Figure 33) is displayed indicating that the 
program is waiting for a function key input. 


Introduction. Program SCAN _ZOC 05: 


Scans 1-3 Zoc-14 Modules simultaneously (32 pressure sensing ports each). 
Uses Zero Operate Calibrate (ZOC) principal: 

- Collects raw pressure data (Zero Operate) 

- Collects calibration data (Calibrate) 

- Reduces and stores data on selected hard or floppy drive. 
CALSYS2000 Calibration Module used for the reference pressure standard. 
Raw pressure data reduced using calibration data from CALSYS2000 
and Zocs in the calibration mode. 


Input variables: Hard and Floppy drive for data atorage 
Sample frequency per port (1-50,000 Hz) 
Samples per Port (1-1021) 
Number of Zocs and their capacity 


Output files: Raw data => ZW(Zoc#) (Date YMMDD) (Run#) 
Calibration => ZC(Zoc#)(Date YMMDD) (Run#) 
Reduced data => ZR(Zoc#) (Date YMMDD) (Run#) 


Select F2 key for Key Menu, F3 for system inputs, or F6 for data reduction. 


User 1 Caps Command 
Set-up Data Collect Reduce List Exit 
Preps Data Data Copy es 


Figure 33 SCAN ZOc 05 Introduction Screen 





10. Set-up Selection: Select function key F3 (Set-up) to 
initialize the program. The "Set-up" screen will be 
displayed. (Note, selection of F4 or F5 at this time 
results in an error message and asks for re- 
selection.) 


11. Set-up Inputs: The user will be prompted for the 
designated data storage drive (select :,700,0,1 if 
equipped)’, data acquisition rate, the number of 


14 The program operates on multi-partitioned hard drives. 
TPL's HP9153C Disk Drive has two partitions. Drive :,700 is 
the main drive and is in HFS format with 10 Mbytes of space. 
Drive :,700,0,1 is the second "DATA" drive and is in LIF 
format with 30 Mbytes of space. LIF format has faster data 
transfer rates. 
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12. 


samples per port (scans) of data to be taken, and 
the number of ZOCs to be used. For each ZOc, the 
user will be prompted for the CALMOD to be assigned 
to the ZOC. Currently only one CALMOD is installed. 
Enter 1 for all three ZOCs. When two CALMODs are 
installed, enter 1 or 2 to the applicable Zoc 
according to the CALMOD regulator settings. 


Set-up Display: The System Set-up screen 
(Figure 34) is updated as entries are made. The 
program searches the data drive for data files and 
creates the next sequential data file name for the 
current date. 


System Set-up. 


Data acquisition rate: 10000 Hz 
Number of samples per port: 3 

Number of Zocs to be scanned: 3 

Total raw data acquisition time: .0093 sec. 
Total calibration data acquisition time: 10.5155 sec. - 


Data storage disc =>:,700,0,1 ; 
Data will be stored in the following files beginning with Run # 1 


Raw data file: 2W1204291 
Calibration data file: 201204291 
Reduced date file: ZR1204291 


Raw data file: 2W2204291 
Calibration data file: 202204291 
Reduced data file: 2R2204291 


Raw data file: ZW3204291 
Calibration data file: 203204291 
Reduced data file: Z2R3204291 





Figure 34 SCAN ZOC_05 System Set-up Screen 


ise 


14. 


ie 


Data Collection Preparations: Select function key 
F4 (Data Preps) for data collection preparations 
(Figure 35). 


Collect Data: . Select function key F5 (Collect data) 
to begin data collection. The CRT will display the 
results of the collection as illustrated in 


Figure 36. 


Data Reduction: To reduce data, select function key 
F6 (Reduce Data). To make changes to the Set-up, 
select function: key F3. To conduct another raw data 
collection run, select function key F4. To exit the 
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program, select function key F8. Selection of F6 
results in the display illustrated in Figure 37. 


16. List/Copy Files: Selection of function key F7 (List 
Files) will list all current data files on the 
storage drive as illustrated in Figure 38. The user 


| Data Collection Preparation. 


Check List: 
- HiScan CALSYS2000 on-line 
- Calibrator supply Line valve is OPEN (on back of Hiscan) 
- CALSYS2000 (Nitrogen) pressure source at 90 psi 


Select F5 to start data aquisition 


User 1 Caps Command 
Intro Key Set-up Data Collect Reduce List Exit 
Menu Preps Data Data Files ® 


Figure 35 SCAN ZO0C_05 Data Preparations Screen 





will be prompted if he wants to store all the listed 
files to the floppy drive :,700,1. Selection of 
"Yes" results in the over-writing of the old files 
with the same file name. 


17. Exit: Select function key F8 (Exit) to exit the 
SCAN ZOC_05 program and return to the ZOC operation 
menu (Figure 32). 


3. Data Analysis and Auxiliary ZOC-14 Programs 


a. Utility Programs 
The ZOC operation menu (Figure 32) displays several 


utility programs which were written for system analysis and 
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Collecting raw pressure data. 


Raw data collection complete. 


Raw pressure data: Run# 1 , Zoc# 1 , storage drive file 2W1204291: ,700,0,1 
Raw pressure data: Run# 1 , Zoc# 2 , storage drive file 2W2204291: ,700,0,1 
Raw pressure data: Run# 1 , Zoc# 3 , storage drive file ZW3204291:,700,0,1 


Collecting calibration data. 

Calibration data: Run# 1 , Zoc# 1 , storage drive file 2C1204291:,700,0,1 
Calibration data: Run# 1 , Zoc# 2 , storage drive file ZC2204291: ,700,0,1 
Calibration data: Run# 1 , Zoc# 3 , storage drive file 2C3204291:,700,0,1 


Calibration data collection complete. 
*e* Secure Calibrator pressure valve to conserve Nitrogen *** 
CALSYS2000 Calibration modes and pressures (in Hg): 


Mode Zoc #1 Zoc #2 Zoc #3 
NH “30.1544 -30.1544 -30.1544 
NM -17.9978 -17.9976 -17.9976 

-7.3819 -7.3819 -7.3819 

.0034 .0034 .0034 

7.4005 7.4005 7.4005 

18.0194 18.0194 18.0194 

PH 30.2072 30.2072 30.2072 


Select F4 for another data run, or FS to reduce data 
User 1 Caps Command 


Intro Key Set-up Data Collect Reduce List Exit 
Menu Preps Data Data Files - 





Figure 36 SCAN _ZOC_05 Data Collection Screen 


data display. These utility programs, listed in Appendix A, 


are tailored for use with the SCAN _z0C_05 data file 


formats?>. 


b. 2Z0C-14 Utility Program Application Examples 


An air source regulated to 30.0 inches of mercury 
gauge was used to verify the acquisition hardware and 
software. Application programs were written to analyse the 


results. 


s Data files created from previous versions of the 
SCAN _ZOC programs listed in Appendix B are not compatible with 
the listed utility programs. 
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Calibration and Raw data reduction and storage. 


Current files on storage disc :,700,0,1 for date 20429 


2W1204291 201204291 
2W2204291 202204291 
2W3204291 203204291 
Data reduction: Run# 1 , Zoc# 1 
Calibration data reduced and transferred to 201204291 
Raw data reduced and transferred to ZR1204291 
Data reduction: Run# 1 , Zoc# 2 
Calibration data reduced and transferred to 202204291 
Raw data reduced and tranaferred to ZR2204291 
Data reduction: Run# 1 , Zoc# 3 
Calibration data reduced and transferred to 203204291 
Raw data reduced and transferred to 72R3204291 
Select F3 reinitialize set-up for data collection, or F8 to Exit 


User 1 


Intro Key Set-up Data Collect Reduce List 
Menu Prepa Data Data Files 


Figure 37 SCAN ZOC 05 Data Reduction Screen 


List Raw, Calibration and Reduced data files. 

Data storage drive name => :,700,0,1 

Current files on storage disc for date 20429 
2W1204291 201204291 ZR1204291 
2W2204291 2C2204291 2ZR2204291 


2W3204291 203204291 ZRI204291 


Select F2 to return to menu, or F8 to Exit 


User 1 


Set-up Data Collect Reduce List Exit 


Preps Data Data Files 


Figure 38 SCAN ZOC_05 List Files Screen 











Command 


* 


The program "READ zoc" (Figure Al8) is selected by 


function key F2 (READ DATA). The program's 


results are 


illustrated in Figure 39 for ZOC #3 (rated at 15 psid). fThe 
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Period between samples (sec): .0001 
Sample collection rate (Hz): 10000 
Number of samples per port: a 

Length of data run (sec): .0093 


Data Tabulation for Port # 1 from file: ZR3204291 


Sample Time (sec) Pressure (Hg. ) 
0.00000 29.62346 
.00320 29. 56425 
.00640 29 .62346 


Data Tabulation for Port # 2 from file: ZR3204291 
Sample Time (sec) Pressure (Hg. ) 

.00010 29.62771 

.00330 29.62771 

.00650 29.62771 
Enter port number for data (0=Exit): 


User 1 Caps Command 
EOLe Continue RUN SCRATCH LOAD ”"" LOAD BIN LIST BIN RE-STORE 





& 


Figure 39 READ _ZOC Data Results 


displayed pressure is the reduced pressure value calculated 
from the SCAN ZOC_05 program. The output pressure is derived 
using the recorded transducer output voltage and the curve 
fitted to the calibration data for the identified port. The 
output values are seen to be within 1.3% of the applied 
pressure. 

The program "PLOT DATA" (Figure Al9) is selected by 
function key F3 (PLOT DATA). The results from ZOC #3 are 
displayed in Figure 40 and Figure 41. 

The program "CAL READ PR1" (Figure A20) is selected by 
function key F4 (READ CALSYS20). The results are displayed in 
Figure 42. 

The program "TABULATE ZOC" (Figure A21) is selected by 


function key F5 (TABULATE CAL DAT). This program displays the 
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Program plots reduced data from file ZR3204291 
Statistics for Zoc # 3 


Period between samples (msec): .1 
Sample collection rate (Hz): 10000 
Number of samples per port: 3 
Length of data run (msec): 9.5 


Data point can be plotted as a continuous line, or squares. 


Note: Wait for symbol '*’ in lower right corner of CRT to change 
to a ’-’ before pressing <Shift><Dump Graph> 


User 1 Caps Command 
Continue RUN SCRATCH LOAD "" LOAD BIN LIST BIN RE-STORE 


#9 00 ee ce ® 





Figure 40 PLOT DATA Alpha Screen Display 


Reduced Data Plat of Ports 1 


Pressure (In Hg) 


Time Cnsec) 


Figure 41 PLOT DATA Graphic Screen Display 





first three reduced data samples of selected ports, and the 
associated calibration data for each selected port. Figure 43 


displays the results for ZOC #3. 
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Program: CAL READ_PR1 


This program sequentially sets the CAL2000 calibrstion 
modes snd reads the corresponding internal Pressure Standard 
for that mode. 


Positive high range pressure to CAL(+) 
Positive mid range pressure to CAL(+) 
Positive low range pressure to CAL(+) 
CAL(+) & REF(-) connected together 

Negative low range pressure to REF(-) 
Negative mid range pressure to REF(-) 
Negative high range pressure to REF(-) 


CAL2000: Calibration modes and pressures. 
Mode Pressure (in Hg) 


30.1606 
17.9945 
7.3788 
.0034 
TeaoLZ 
18.0194 
30.2072 


Figure 42 CAL READ PR1 Results 





Program tabulates Zoc pressures and calibration data from 
the SCAN _ZOC 05 program. 
Reduced Data Tabulation at a sample rate of 10000 Hz 


Port Sample 1 Sample 2 Sample 3 
1 29.623 29.564 29.623 
7. 29.628 29.628 29.628 
3 -,414 -.414 =aoL 
4 -.495 -.425 -,425 


Calibration Data Tabulation for Zoc# 3 


Pressure voltage readings: 
Port NH NM NL ZO PL PM 
0 -30.154 -17.998 -7.382 .003 7.401 18.019 
-2, 19% =-1.310 = 2521 .040 si2s 1.688 
“2.594 -1.669 -.850 -.276 .450 1.478 
12853 -1.018 = 2250 sole .909 1.820 
=e 7 0) =22036 =,0302, 4 201 .673 1.485 


Calibration polynomial coefficients for Zoc# 3 

Port AO Al A2 A3 
1 -1.00116186204 11.8955586742 . 435562698234 . 106534210924 
2 2. 45870376346 11.10959866035 , 849715337703 .09404 54333066 
3 -3.96668335674 12.8254266665 . 523187753647 . 119575469008 
4 -1.98202140047 14.2260022322 .645728820628 . 20262038018 





Figure 43 TABULATE_ZOC Results 


The program "LS PLOT" (Figure A22) is selected by 
function key F6 (PLOT CAL DATA). Figure 44 displays the 


calibration data with voltage verses CALMOD calibration 
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Square Plot af CAL20@@ Callbration (Port 1 ) 


| ? 





Preesure (In Hg) 


LS PLOT Graphic Results 






Figure 44 


pressure (squares), and the curve fitted to the collected data 
by the least squares method (continuous line). The results 


are from port #1 on ZOC #3. 
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III. DISCUSSION 


A. Upgraded Capabilities 

The ZOC-14 DAS provides the capability to perform fully 
automatic high-speed pressure data aquisition, data storage 
and reduction. For the Gas Dynamics Laboratory (GDL), this 
upgraded capability allows very short run-times in the 
transonic and supersonic wind tunnels, resulting in greatly 
reduced electrical power consumption by the laboratories air 
compressors and the elimination of delays between wind tunnel 
tests. Additionally, wind tunnel models will have a longer 
useful life. The shorter run times will reduce model erosion 
and the net effect is a reduced cost to operate the wind 
tunnels and to maintain models. 

The HP9000 now serves as the controller for the DAS's in 
each of the three laboratories comprising TPL and GDL. Each 
DAS includes Hewlett Packard HP-IB compatible instruments and 
the -HG-78K Scanivalve Controller. Low speed pressure data 
acquisition, using the HG-78K to operate the Scanivalve rotary 
port pressure sensing unit, is eopacineds However, for 
turbomachinery measurements, phase-lock data acquisition using 
TPL's Digital Programmable Timing Device (or PACER), can not 
yet be performed using the HP9000 to replace ene HP1000 [Ref. 


24). TPL's PACER is electrically hard-wired into the HP1000 


63 


as an I/O device. However, the integration of the HP9000 and 
HP6944A, as demonstrated in the ZO0OC-14 DAS, is known to 
provide the interface capability to operate the PACER. 
Temperature and low-speed pressure measurement data 
acquisition and processing using the HP9000 has_ been 
demonstrated in turbocharger performance mapping laboratories 
and transonic wind tunnel thesis research [Ref. 25]**. The 
HP9000 was shown to provide improved data storage handling and 
display capabilities (over the HP1000 system) using the HP9153 
series hard/floppy disk drive and HP7475A plotter. 
Development of the ZOC-14 DAS served to identify the 
programming and integration requirements, and the capabilities 
of the HP9000 and HP6944A as a subsystem. The HP9000/HP6944A 
aS a controller and data acquisition sub-system provides to 
TPL and GDL the potential for extension in several prospective 


applications. 


B. ZOC-14 DAS Outstanding Issues 
The ZOC-14 DAS development is not fully complete. Several 
hardware, software, and performance issues need to be 
resolved, namely; 
# Hardware: The CALSYS2000 is using only one CALMOD to 


provide calibration pressures for a specific ZOC operating 
range. A second CALMOD is required. 


= Appendix D, Figures D3-D6 are HP9000 controlled 
Turbocharger Performance Mapping and data display programs. 
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@ Hardware: It was not possible to set the "PURGE" mode to 
clear pressure sensing lines using nitrogen gas supply. 


# Software: SCAN ZOC 05 uses a "set" 1.5 sec time delay to 
account for calibration pressure stabilization during the 
calibration process, vice a technique to monitor the 
calibration pressure and digitize when found to be stable. 


@ Performance: The maximun data sampling rate acheivable 
with the ZOC modules needs to be verified. 


# Performance: A data error analysis needs to be carried 
out. 


# Performance: The calibration of the CALMOD Pressure 

Standard needs to be verified. 

Some elaboration of each of these issues follows. 

The use of the present one CALMOD results in only the 15 
psid ZOC being calibrated over its full pressure range when 15 
psid and 50 psid ZOCs are used in the DAS. The 50 psid Zoc 
must be used without the 15 psid zocs if they are to be 
calibrated and used over their full range. This would reduce 
the pressure data measurement availability from 96 (3x32) to 
32 ports. Installation of a second CALMOD would allow 
independent calibration of the 15 psid and 50 psid ZOC 
modules. The program SCAN ZOC_05 incorporates the steps to 
use two CALMODs, and eee no modifications. 

The PURGE mode is set by providing control gas through 
both the Px and CAL control lines as illustrated in Figure 
Be. Currently, the required control gas pressure is not 


provided by the PSC when the appropriate command is sent from 


17 Refer to Ref. 17, dwg 17750, PNEUMATIC DIAGRAM OF PSC. 
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the HP9000 to the CALMOD. The commands to set the PURGE mode 
are "aEC 8 Y" followed by "aEC 10 N" to set the solenoids in 
the PSC. 

The calibration process requires a stabilization time 
delay to elapse between the setting of a calibration mode and 
the sampling of the calibration pressure by the Pressure 
Standard. The best method to determine the required time 
delay is to continuously sample the calibration pressure until 
the pressure stabilizes, then record the calibration pressure. 
The program SCAN _ZOC_05 uses an empirically derived 1.5 sec 
"wait period" between the calibration mode selections and the 
pressure sampling. This time value was determined using a 
modified CAL READ PR1 program, stopwatch and oscilloscope. 
CAL_READ_PR1 was modified with a PAUSE statement to allow 
observation of the ZOC voltage signal on the oscilloscope. 
When the signal appeared to stabilize on the oscilloscope, the 
CONTINUE key (F2) was depressed to sample the pressure and 
select the next mode. The times for six complete mode 
selections were recorded. The average time was found to be 
1.34 seconds between depressions of the CONTINUE key. The 
value of 1.5 seconds was selected as a conservative value to 
use for the time delay. 

The maximum sample data collection rate has not yet been 
realized with the ZOC-14 DAS. Preliminary observations 
revealed a random fall-off in pressure values when the "input" 


data sampling rate was greater than 50 KHz. A more careful 
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analysis of the sampling rate is required to validate the 
current 50 KHz value and to determine the maximum data 
sampling rate. 

An error analysis of the ZOC-14 DAS is required to 
determine the accuracy of the data collection and reduction 
process. The HP67959A A/D Cards have a documented resolution 
of five milli-volts for their factory set configuration as 
installed in the HP6944A. The Pressure Standard mounted in 
the CALMOD has accuracy specifications documented in Reference 
1e7 The zZOCs have measurement accuracy specifications 
documented in Reference 16. The numerical Least-Squares curve 
fitting routine introduces a so-far unspecified uncertainty. 
The reduced pressure readings provided in Figure 39 compared 
to the 30.0 inches of mercury source pressure, provide only a 
single example of the pressure measurement uncertainty given 
by the DAS'®. Derivation of the overall system uncertainty 
needs careful attention. 

The Pressure Standard's calibration has not been verified 
Since it's delivery. Calibration verification is essential 
prior to accepting pressure measurement data. Accordingly, 
the CALMOD calibration coefficients, derived -from the 


Calibration verification, need to be changed on the CALMOD 


18 Uncertainty in the source pressure of 30.0 inches of 
mercury as measured by the TPL Calibration Pressure Manometer 
needs to be considered in the uncertainty analysis. 
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EPROM. Reference 17 provides the details to conduct Pressure 


Standard calibration and coefficient changes on the EPROM. 


Cc. Potential Extensions and other Applications 

The HP9000/HP6944A subsystem provides the hardware 
features necessary to integrate computer control of 
experiments with the data acquisition process. Three 
immediate applications using the HP9000/HP6944A are identified 


here: 


# The TPL PACER can be interfaced with the HP9000/HP6944A to 
provide phase-locked data acquisition capability’’. 


# Kulite pressure probe measurements can be acquired using 

* the analog signal from the conditioning amplifier. The 
signal would be routed directly to the Buffer A/D Function 
input connector, using the Timer Function to set the data 
collection rate and number of samples. 


#® GDL's transonic and supersonic wind tunnels can be 
operated with fully automated data acquisition and 
experiment control systems. The tunnel's manual back- 
pressure valve, and electro-servo controlled translating 
survey probe can be operated by the HP9000/HP6944A to give 
fully automated control. 


19 Preliminary TPL PACER interfacing techniques have been 
examined but not yet documented. 
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IV. CONCLUSIONS 


The DAS upgrade and extension which is reported here has 
included the adoption of the HP9000 as a controller for 
existing HP-IB compatible DAS instrumentation, the generation 
of acquisition and reduction software for the existing system, 
and the development of a scsnew high-speed pressure data 
acquisition capability. The new high-speed system involved an 
integration of the HP9000 with the HP6944A Multiprogrammer and 
with Scanivalves's ZOC-14 and CALSYS2000 systems. In the 
present account, emphasis has been placed on reporting the 
development of the ZOC-14 DAS. The hardware and software for 
the system have been successfully demonstrated. It has been 
Shown that the use of the system in the Gas Dynamics 
Laboratory can reduce wind tunnel test times by a factor of 
20. 

Six issues concerning the present hardware and software 
have been identified as needing to be resolved, and immediate 
applications of the HP9000/HP6944A system to Kulite and Phase- 
Locked data acquisition, probe survey and tunnel condition 
control, have been identified. The programs and experience 
reported in the present document can serve to guide these 
extensions. 

The key to developing the capabilities resident in the 


HP9000/HP6944A system is a thorough familiarity with HP BASIC 


6a 


and HP14753A CAT programming. Therefore, the recommendation 
is made that formal instruction in this language and 
programming techniques be provided before the recommended 


extensions of the system are attempted. 
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APPENDIX A. ZOC-14 PROGRAMS 


Appendix A is a compilation of pertinent information and 
programs used to operate the ZOC-14 DAS. 

Figure Al is the ZOC-14 DAS program configuration file, 
"ZOC_ CONFIG 05", print-out for the I/O Cards installed in the 
HP6944A. The print-out is produced using the CAT program 
"DOCUMENT". The DOCUMENT program is located on the "/HP6944A" 
Girectory (Figure Dl). Z0C_ CONFIG 05 is a BDAT file located 
in the /HP6944A directory. 

Figures A2 through Al6 are parts of the SCAN_ZOC_05 
program flow chart. Figure Al7 is the SCAN ZOC 05 program 
listing with program-specific remarks anotated after the "!" 
character. 

Figures Al8 through A22 are ZOC-14 DAS utility programs 
located on the /HP6944A directory. 

Figure A23 is the program used to display the zZoc 
operation menu, and define the function keys to provide menu 


item selection by function keys. 


7X 





File Name: ZOC_CONFIG 05 


User ID: 26 Apr 1992 16:53:12 
List of Names: 

Bufferl Adel Buffer2 

Adc2 Buffer3 Adc3 


Timer 





RRRRRRRRRKARRARRRAAHAARARRRRARRAEKRRRRRRAAKRERARRRHRARR 


Configuration for Bufferl 

Model Buffer 
RRARRWRARRACRRRARRARAKRRRRRRRRRRCWKCKRRRRRKRRKKRKKRHRARRAKR 
Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 
Frame ~...00+8¢ 0 
po | oe ee 0 


Memory Type .... 69791A 
No of Extenders ... 0 
Ref Reg 1... 0 

Ref Reg 2... 0 

Buffer Direction .. In 
Front End Type .. 69759A 
A/D Names: 1 . Adel 
2. None 

3 . None 
4 . None 
5 . None 
6 . None 
7 . None 
8 


. None 


RARRRMRARKARERKARRARARRARRRRERLRRRRARECRRRRKRERRRARRR 


Configuration for Adcl 
Model 69759A 500 KHz A/D 


RRERRREARRRRARRRRRRRRRARAHRRRARRRRARRKRRARKRKRRRARR 


Multiprogrammer Type ... HP6954A or HP6944A 

Interface Select Code .. 29 

PRean®,” .o65 ss « 0 

SLOU. Fee re ea 7 

Full-scale Range ........ +-10.24 volts 

Initial Internal Range ... 10 

Rafige’ Source: .......26.08. Internal 

SSO MTGE 655 Gierele «.cley ey ees None 

Tameaut (o6..0.2.2.. 30 10 

Data. Conversion ........... Standard 

Internal Trigger ......-60- Disabled 

Extdrnal Trigger .........; Enabled 

Tieweeet Modev<. feck secs Multipla 

Trig@eu Polarity .....0..:.. Negative 

Lockout. Polarity* ..3.4....... Disabled 

Master Output Enable ...... Enabled - 

Mux Output Control ......-. Disabled 

External Output Enable .... Disabled 

Get @Mod® : os 6s sacle ue es Multiple 

Return Date WIth .....2.26. Sign Extension 
{ Page 1 } 


ZOC_CONFIG_05 


Figure Al ZOC-14 Configuration File 


72 


RAAT RWRRRARARAKARKAWHWHAKHRRAHKRRRKHRKARKHRH ee we 


Configuration for Buffer2 
Model Buffer 


WRAARAWAKRAKAAAKAKKAWKKWAAK AKA AWK RWRRHWHRRRAKKKKWNR WH 


Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 

Frame .....6..6. . 0 

SS) oe a re ae 2 

Initial Mode ..... Pe arm 10 & 22 

Initial Lockout ....... Off 

Timeout ....... 10 

Memory Type .... 69791A 

No of Extenders ... 0 


Ref Reg 1 .. 0 

Ref Reg 2... 0 

Buffer Direction .. In 
Front End Type .. 69759A 
A/D Names: 1 . Ade2 
. None 

. None 

. None 

. None 

. None 

. None 

. None 


San Mus | 


RARRRAAKARAARAWAWWARAAWWKAAWWAARARUNAKWWHKWWRHAKKRAR WARK 


Configuration for Adc2 

Model 69759A 500 KHz A/D 
RARARAARARARARARARRUARREREARRRRUARRRUUWRAUKAAAWWARWUWRAWL 
Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 
Frame ......... 0 
Ble cc cece eae I 


Full-scale Range. ........ +-10.24 volts 

Initial Internal Range ... 10 

Range Source ............. Internal 

SBCANMOL ..0c0s0006 ete ena .. None 

Timeout ....... BUetideharetets seus 10 

Data Conversion ...... ..e.. Standard 

Internal Trigger ..... ...e- Disabled 

External Trigger ..... ..-.. Enabled 

TELE BOL Modest... . sce cc ccess Multiple 

apaeger Polarity. .......s- Negative 

Lockout Polarity .......... Disabled 

Master Output Enable ...... Enabled 

Mux Output Control ........ Disabled 

External Output Enable .... Disabled 

RMI Wa 5 o's 6 kl ob see 0 6 9s Multiple 

Return Data With .......... Sign Extension 
{ Page 2 } 


ZOC_CONFIG_05 


Figure Al (cont) ZOC-14 Configuration File 
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RAHHHKAHAHAAHAHHHRAKRAARHAKHAHRARKRAHHHKHARKRRANRAHKKHAKAKKKHKRH 


Configuration for Buffer3 

Model Buffer 
RRAWRARRRRRRARRRAAHAKHAKHAHRAARRARRABARARAAKARARARAAKH 
Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 
PEAMO os: 6 uc bears 0 
Slot. {3.2.2.4 4 


Timeout ....... 10 
Memory Type .... 69791A 
No of Extenders ... 0 
Ref Reg 1... 0 

Ref Reg 2... 0 

Buffer Direction .. In 
Front End Type .. 69759A 
A/D Names: 1 . Ade3 

2 . None 

. None 

. None 

. None 

. None 

. None 

. None 


on OSU S&S U) 


RARAWRRERARWARRRARAARAAARAARAAHRAHARHHRARRHAANHANNNE 


Configuretion for Adec3 

Model 68759A 500 KHz A/D 
RRAKREARHRRAARARARRRARARRARRRAARAHRAAHAAHHHHAHHHAHAHHHHKE 
Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 
Frame ...c.se2 O 


SLOEM 7. cciis «se 11 

Full-scele Range ........ +710.24 volts 
Initial Internel Range ... 10 

Range Source 222.4 ..8.14... Internel 
SCAMNG@E >) 66s eee ee None 

TIMOGO. Oeste 

Deta Conversion ........... Standard 
Internel Trigger .......... Disabled 
Externel Trigger .......... Enabled 
Trigger Mode .............. Multiple 
Trigger Polarity ......6e. Negetive 
Lockout Polerity .......... Disebled 
Master Output Enable ...... Enabled 

Mux Output Control ........ Disabled 
Externel Output Enable .... Disabled 
Gate Mode......... Fee eM itecs Multiple 
Return Dete With .......... Sign Extension 


{ Page 3 ) 
ZOC_CONFIG_05 


Figure Al (cont) ZOC-14 Configuration File 
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RRRHRARAKRHRRAAARAHAHRAHRHRHRKRARAKHAHHAAHAARHRAHHAHAARAARHHA KAHAN 


Configuration for Timer 


Model Timer 
We te We We We We We We We He He We We We Wee ee ee ee ee ee eH HHH RAH ERR RKRKAHRAARAKRKRER GH 
Multiprogrammer Type ... HP6954A or HP6944A 
Interface Select Code .. 29 
Timer-Pacer Frame .. 0 


Timer-Pacer Slot .. 13 
Counter Frame ...... 0 
Counter Slot ...... 15 


PIMSOUL . . oss. « 10 
Run Time Limit Checking ... No 
Initial Period .......: 2.E-6 


Mnecial Count ...<2%. 6% 0 
Digital Out Controller .. No 


[ Page 4 } 
ZOC_CONFIG_05 


Hueire Al (cont) ZOC=14 Configuration File 
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Reserve COMmon memory space for 
block names /Issscom/Isss_heap 


/Names/ for use in the application 
program 


Load configuration file ZOC_ CONFIG 05 
Key label: 
Define program function keys 


Initialize spac: 
Reserve COMmon memory space for 





program specific variables, buffers, 
arrays, and strings — 


Intro: 
Display Introduction screen 








GOTO Oe 






Select 
funct ton 
‘key (fn) 







Yes 


Figure A2 Program: Start-up and Initialization 
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fl: Display f2: Display £3: Establish 
Introduction Operating Menu initial program 
data collection 


parameters in 


(£2) Set-up 





£4: Display Data £5: Begin Data 
Collection Preps Collection f6: Begin Data 
: Reduction 
f7: List Files f8: Exit program 


to the screen, or 
Copy files to 


Floppy 





Figure A2 (cont) Program: Start-up and Initialization 


a 









Display Introduction page to Screen 


GOTO Hold 


Display ZOC-14 Operating Menu 
to the screen 


| 
‘ 
y 
q 


GOTO Hold 


Figure A3 Program: Introduction and Operating Menu 
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© 


Exit loop 











FOR-NEXT 
1-3 ZOCs 





CALL File 


INPUT CALMOD2000 
designated for Zoc 


Display Set _up parameters 
Display data file names from File 
GOTO Hold 


Figure A4 Program: Set-up Parameters 


fps) 





Program has 
no Set-up 
parameters 





Display: 
Select £3 


GOTO Hold 


Ga =0 
<>0 


Display Data Collection Preparation requirements 
Initialize CALSYS2000 
GOTO Hold 


Figure A5 Program: Data Collection Preparations 
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= 


Collect data: 


Program has 
=0 no Set-up 
parameters 


<>0 Display: Select £3 
GOTO Hold 





Calculate Count value for Timer function 
CALL Scan_zocs 
Raw data collection completed 


Raw data xfer: 








FOR-NEXT 
loop for 
I=3 ZOCs 


Exit Loop 


CALL Raw_dat 


Ielslie sie Coys IE 


Figure A6 Program: Data Collection 
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Calibration data collection routine 
Create raw calibration data arrays 
Calculate Count value for Timer function 


Set initial values in calibration data arrays 
Collect cal dat; 


FOR=NEXT 
loop for 
1-3 ZOCs 














Exit loop 


CALL Cal2000 
FOR 
CALL Scan_zocs 


Store data from Memory 
into array Cal 






FOR-NEXT 
loop for 
1-3 ZOCs 


Exit loop 






CALL Cal dat 


Calibration data collection complete 


Figure A6 (cont) Program: Data Collection 
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Re-initialize CALSYS2000 


Display CALMOD2000 calibration pressure settings 


GOTO Hold 


Figure A6 (cont) Program: Data Collection 
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Reduce dat: 
Calibration and raw data reduction and storage 


<7 


OR-NEXT 
loop for 
1-3 ZOCs 


INPUT Date of data 
for reduction 













INPUT Number of ZOCsS 


INPUT Data storage drive 





Exit sloop 


CALL File scan 


Display current data files on storage drive 


FOR-NEXT 
LOOp Pt Or 
1-3 ZOCS 











Exat loop 


GOTO Hold 


Figure A7 Program: Data Reduction and Storage 






CALL Raw_red dat 
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View data file listing 


INPUT Date of data 

for reduction 

INPUT Number of ZOCsS 
INPUT Data storage drive 










Exit loop FOR-NEXT 


loop for ; 
1-3 ZOCs 
GAL Eerih¢é sean 


Display current data files on storage drive 





Copy data files from 
Hard drive to Floppy 
GOTO Hold cy 


Figure A8 Program: Data File Listing and Storage 
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LOAD ZOC_MENU and execute 
Exit SCAN ZOC_05 program 








FNDateS 


Enter TIMEDATE 


Calculate date value 


RETURN Date in form YMMDD 
FNDatesS 








Figure A9 Program: Exit / Subprogram: FNDate$ 
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SUB File 
Assign_file: 


Define a raw data file name and storage drive 


No 


Yes 


Assign raw data file name to File$ array 


Define a calibration file name and storage drive 


PURGE raw data file 


No 


Yes 


Assign calibration data file name to File$ array 


Define a reduce data file name and storage drive 


Assign reduce data file 
name to File$ array 








Increment Run value No 


Figure AlO Subprogram: File 
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Assign raw data file name to File$ array 


Assign calibration data file name to File$ array 


Assign reduce data file name to File$ array 


SUBEND 


Figure AlO (cont) Subprogram: File 
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function to complete its tasking 


Initialize the Buffer functions 
Start the Timer to begin data acquisition 


Exit subroutine when Timer 
has completed its tasking 


SUBEND 


Figure All Subprogram: Scan _zocs 
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SUB Raw_dat 
Create an Integer Buffer array Raw_data 
to store data from the Memory card 

Assign_file: 
Select Raw data filename from File$ 
array for a specified Run number 
CREATE BDAT raw data file on 
designated storage drive 
















If BDAT raw 
file already 
exist on 
drive 


CALL File 
to increment Files 
to next file name 





No 
Transfer raw data from Memory card 
into computer buffer array Raw_data 
Transfer raw data from buffer to BDAT 
data file on the storage drive 


SUBEND 


Figure Al2 Subprogram: Raw dat 
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SUpeGarzo00 


Send command instruction to CALSYS2000 


FOR-NEXT 
loop for 
1-3 ZOCsS 














Bxic Loop 


NEXT OUTPUT Read Pressure 


command to CALSYS2000 





ENTER CALSYS2000 
pressure value into 
Zoc_ cal array 


Cal2000 


SUBEND 


Poegure Als Subprogram: Cal2000 


a 


SUB Cal dat 


Transfer calibration data 
from array Cal to Zoc cal 


Select calibration data filename from 
File$ array for a specified Run numbe 


CREATE BDAT calibration data file 
on designated storage drive 


Transfer calibration data from Zoc cal 
to BDAT data file on the storage drive 


SUBEND 


Figure Al4 Subprogram: Cal dat 


a2 


SUB Raw_red_ dat 


Select calibration, raw, and reduced 


data filenames from File$ array for 
a specified Run number 


















If reduce 
file already 
exist o 
drive 


No 









et 
calibration 
file already 
exist on 
drive 


SUBEND Raw_red dat 
Yes 






SUBEND Raw_red_dat 
No 


Yes 


Data_reduction: 
Load calibration data from designated 
storage drive into computer memory 
Create routine specific 
arrays for data reduction 


Least Squares curve fit routine 


to derive polynomial coefficients 


Figure Al5 Subprogram: Raw _red dat 


93 


Store Least Square Coefficients 
into array Zoc_cal 
OUTPUT (store) reduced calibration 
data to designated storage drive 


Create arrays to reduce Real raw data 


CREATE BDAT Real data file on storage drive 













dora = 
Loop 


Loop for 
translating 
raw data to real 
data for eac 
Block 
















ENTER Block of 32 samples 
into Integer array 
Data_integer 






Translate Integer data to 
Real data in Real array 
Data_real 








OUTPUT (store) reduced raw data 
to designated storage drive 


SUBEND 
Raw red dat 


Figure Al5 (cont) Subprogram: Raw red dat 
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SUB File scan 


False 
True 


Define a raw data file name and storage drive 


<< 


' Assign raw data file name to FileS$ array 


Define a calibration data file name and storage drive 


<a No 
Yes 


Assign calibration data file name to Files array 
Define a reduce data file name and storage drive 






Figure Al6 Subprogram: File scan 


=). 


File 
exists? 





Assign reduced data file name to File$ array 
Assign_file: 











If raw 
data file 
exists 


Set File _in_storage=1 


File in storage 


Set WHILE Loop False 









+ 





IF 
number of runs 
exists 


Set WHILE Loop False 





Increment Run number 


Figure Al6 (cont) Subprogram: File scan 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


510. 


520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


{ Program: SCAN_ZOC_05 
! Description: Application program to operata HP6944A collecting prassura 
! readings from 1-3 ZOC-14 32 port modulas using tha CALSYS 
! 2000 to provide calibration data, reduce raw prassura data 
! and store data to tha hard driva. 
! Hardware: (1) HP6944A Multi-processors 
! - (3) 500 kHz A/D Cards (HP69759A) 
! - (3) High Spaad Memory Cards (HP69791A) 
! - (1) Timer/Pacar Card (HP69736A) 
! ~ (1) Counter Card (HP69775A) 
! (1) HiScan CALSYS 2000 Calibration Module 
! (3) Z2OC-14 32 port Electronic Preasure Scanning Modulas 
! Notes: 1. This program utilizes up to threa (3) ZOC Modules storing data 
! of each ZOC into a seperate buffer Mamory System (HP69791A). 
! 2. COM /Names/ line and BDAT file ZOC_CONFIG_05 must match for 
! this program to oparata. 
! 3. CALSYS2000 raquiras a short period to stabiliza bafora raading 
! the prassure valves. The Pause_for statement sets (line 470) this 
! wait period in seconds. Adjustmant of the variable my ba raquirad 
! as additional ZOCs ara integrated into the Data Acquisition System. 
! 4, CALSYS2000 currently configured for ona (1) calibrator. This 
! program is writtan to operate ona (1) or two (2) calibrators. 
j 
! Buffer Memory: 65536 16-bit data words in HP69791A par system 
! Timer: Maximum 32767 counts for one HP69775A (321023832736 data points) 
! Max spaad of HP system is Period=0.000002 sec. or 500 kHz. 
! 
COM /Issscom/ INTEGER X(1:1106) 
COM /Isss_heap/ Isss_heap(1000) 
COM /Names/ Bufferl,Adcl, Buffer2,Adc2,Buffer3,Adc3, Timer 
Configura("Menu_off","“ZOC_CONFIG_05”) 
!Configura("Ask_me","ZOC CONFIG 05") 
! 
Kay_label: !------ RY CLAD EL ASSIGNMENT =" === -=—<s<9e<-s<> hl a 
! 
KEY LABELS ON 
ON KEY 1 LABEL "Intro” GOTO Intro 
ON KEY 2 LABEL "Key Menu” GOTO Key_menu 
ON KEY 3 LABEL “Set-up” GOTO Input 
ON KEY 4 LABEL "Data Preps” GOTO Data_prep 
ON KEY 5 LABEL “Collect Data” GOTO Collect_data 
ON KEY 6 LABEL “Reduca Data” GOTO Reduca_ data 
ON KEY 7 LABEL “List Copy" GOTO Viaw files 
ON KEY 8 LABEL “Exit” GOTO Finish 
! 
Initialize spac: !----- ASO LGNATIEROn Pl OLAGE. == 22 22a a = sao one oo eae 
Pause for=1.5 ! Wait time for CALSYS2000 stabilization 
! COM assigns calibration data array for 32 Zoc ports and standard valuas. 
COM /Zoc_dat/ REAL Zoc_cali(33,10) BUFFER, Zoc_cal2(33,10) BUFFER, Zoc_cal3(33,10) BUFFER 
COM /Stats/ REAL Pulsa,Sample_numbar, Pausa_for, INTEGER Cal_mod_id(3),DateS(6],Run 
COM /Files/ FileS(1:99,1:9)(14],Data_drivaS(11) !Data fila & storaga driva. 
! 
DIM Command_modaS(1:7)[2] 
Command_modaS(1)="NR" 
Command_modaS(2)="NM" 
Command_modaS$(3)="NL" 
Command_modeS(4)="ZO" 
Command_modaS(5)="PL”" 
Command_modaS(6)=" PM" 
Command_modaS(7)=" PH" 
t 
Run=0 
Data_reducad=0 
' 
MN CTOn Sse a7 Nn FL 3 CO] ON Lp 0), a fe] 0 9 a a ala aa ai a at 


Figure Al7 ZOC-14 DAS Program: SCAN ZOC 05 
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660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1130 


1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


! 
CLEAR SCREEN 
PRINT "Introduction. Program SCAN ZOC 05:" 


PRINT 

PRINT “ - Scans 1-3 Zoc-14 Modules simultaneously (32 pressure sensing ports each).” 
PRINT “ - Uses Zero Operate Calibrate (ZOC) principal:” 

PRINT ~ - Collects raw pressure data (Zero Operate)" 

PRINT " - Collects calibration data (Calibrate)” 

PRINT " - Reduces and stores data on selected hard or floppy drive.” 

PRINT " - CALSYS2000 Calibration Module used for the reference pressure standard.” 
PRINT " - Raw pressure data reduced using calibration data from CALSYS2000" 

PRINT " and Zocs in the calibration mode." 

PRINT 

PRINT “Input variables: Hard and Floppy drive for data storage” 

PRINT " Sample frequency per port (1-50,000 Hz)” 

PRINT " Samples per Port (1-1023)" 

FRINT Number of Zocs and their capacity” 

PRINT 


! Note: HFS Files Limited to 14 characters, LIF Files limited to 10 char. 
! Output files have a length of 10 characters to support LIF forr at. 
! Hard drive :,700 is HFS format, :,700,0,1 is LIF format. 

! Floppy drive :,700,i1 is LIF format. 


PRINT "Output files; Raw data => ZW(Zoc#) (Date YMMDD) (Run#)" 
PRINT " Calibration => Z2C(Zoc#) (Date YMMDD) (Run#)" 
PRINT " Reduced data => ZR(Zoc#) (Date YMMDD) (Run#)" 
DISP "Select F2 key for Key Menu, F3 for system inputs, or F6 for data reduction." 
Hold: ! 
GOTO Hold 
t 
Key_menu: !----- Rt MENG owe ren ter sere se === 7-67 oe ae ee 
! 
CLEAR SCREEN 
PRINT “ZOC-14 Operating Menu.” 
PRINT . 
PRINT “Function as Function Key" 
PRINT 
PRINT " Introduction gen ies 
PRINT " Operating Menu F2" 
PRINT " System Set-up F3” 
PRINT " Data Collection Preparation F4” 
PRINT “ Data Collection FA’ 
PRINT " Data Reduction F6" 
PRINT " List Files (Copy files to Floppy) F7" 
PRINT 
PRINT ” Exit F8" 
! 
GOTO Hold 
! 
Input: [---=- INFUT VARLABLES =n eee oe Sese<—5 2295 -s2=-2=--5 


MAT Zoc_call= (0) 
MAT Zoc_cal2= (0) 
MAT Zoc_cal3= (0) 
MAT FileS= ("-") 
DateS=FNDateS( TIMEDATE) 
! 
CLEAR SCREEN 
PRINT "System Set-up." 
PRINT 
INPUT “Select Hard drive for storing data (0=:,700 1=™:,700,0,1)",Drv 
IF Drv=0 THEN 
Data_driveS=":,700,0,0" 
ELSE 
Data_driveS=":,700,0,1" 
END IF 
INPUT "Enter data sampling rate (1-50kHz):",Hz 


Figure Al7 (cont) ZOC-14 DAS Program: SCAN ZOC 05 
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1310 
1320 
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1340 
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1800 
1610 
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PRINT "Data acquisition rate:";TAB(50);Hz;" Hz” 
INPUT “Number of aamples per port (1-1023): ",Sample_ number 
PRINT “Number of samples per port:";TAB(50);Sample_number 
INPUT “Number of Zoc’a connected to Multi-programer”, Zoc_number 
PRINT "Number of Zoca to be scanned:”;TAB(50);Zoc_number 
Cal_mod_id(0)=Zoc_number 
FOR Zoc_case=1 TO Zoc_number 
SELECT Zoc_caae 
CASE 1 
Run#1 
CALL File(1) 
INPUT “Enter Calibration Module number set for Zoc #1 (Enter 1 or 2):",Cal_mod_ id(1) 
CASE 2 
Run#1 
CALL File(2) 
INPUT "Enter Calibration Module number set for Zoc #2 (Enter 1 or 2):",Cal_mod_id(2) 
CASE 3 
Run#1 t 
CALL File(3) 
INPUT "Enter Calibration Module number aet for Zoc #3 (Enter 1 or 2):",Cal_mod_id(3) 
END SELECT 
NEXT Zoc_case 
t 
Period=1/Hz 
Pulae=Period/2 {Pulse length of HP69736A trigger signal 
t 
PRINT "Total raw data acquisition time:";TAB(50);Period*Sample_number*31;" sec.” 
PRINT “Total calibration data acquiaition time:”;TAB(50);Period*5*31+(7*Pause_for);" sec.” 
PRINT 
PRINT "Data storage diac =>";Data_ drives 
PRINT “Data will be stored in the following filea beginning with Run #”;Run 
PRINT 
FOR I=1 TO Zoc_number 
J=(I-1)*3 
PRINT “Raw data file: ":FileS(Run, J+1) 
PRINT “Calibration data file: ":FileS(Run, J+2) 
PRINT "Reduced data file: ":FileS (Run, J+3) 
PRINT 
NEXT I 
! 
DISP "Select F4 key to begin data aquiaition” 
GOTO Hold 
! 
Data_prep: !----- PREPARE SrOR -DATARCOLLEC 1) LONT — 239 = 223 = <== ere ns <= 62 ees== = 
CLEAR SCREEN 
PRINT “Data Collection Preparation.” 
PRINT 
IF Run=0 THEN 
PRINT “Program not initialized for data collection.” 
DISP "Select F3 to initialize Set-up” 
GOTO Hold 
END IF 
PRINT "Check list:” 
PRINT “ - HiScan CALSYS2000 on-line” 
PRINT " - CALMOD supply line valve is OPEN (on back of CALSYS2000)” 
PRINT " - CALSYS2000 (Nitrogen) preasure aource at 90 psi" 
! 
! 
CONTROL 9,5;3 { Set DTR & RTS to Active for CALSYS2000 
OUTPUT 9:VALS(1);"IC":CHRS(13);END! Initialize Calibrator module #1 
OUTPUT 9;VALS(2);"IC":CHRS(13);END! Initialize Calibrator module #2 — 
WAIT Pause for ! Allow CALSYS2000 to set Zocs 
t 
DISP "Select FS to start data aquisition” 
GOTO Hold 
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! 

Collect_data:!------ COLLECT DAIA <<<92993939<2ss9=2=2-<-=<--+----~-—---_----— 

IF Run#0 THEN 
PRINT “Program not initialized for data collection.” 

DISP "Select F3 to initialize Set-up” 
GOTO Hold 

END IF 

CLEAR SCREEN 

PRINT 

PRINT “Collecting raw preasure data.” 

Count=Sample_number*32 ! Set Count as function of sample number 

! and number of port readings (32) on 
! Zoc for raw data collection. 

CALL Scan_zocs(Count, Pulse) ! Collect raw data into Memory System 

PRINT 

PRINT "Raw data collection complete.” 

BEEP 

i 

Raw data xfer: !------ TRANSFER RAW DATA FM MEMORY SYSTEM TO HARD DISC ----- 

PRINT 

! 

FOR Zoc_caae#1 TO Zoc_number ! Collect raw data, reduce data and 
SELECT Zoc_caae ! and store reduce data on hard drive 
CASE 1 

CALL Raw_dat(Buffer1l,1) 
CASE 2 
IF Run>1 THEN 
Run=Run-~1 
END IF 
CALL Raw_dat(Buffer2, 2) 
CASE 3 
IF Run>1l THEN 
Run=Run-1 
END IF 
CALL Raw_dat (Buffer3,3) 
END SELECT 
NEXT Zoc_caae 
! 
initial cal: |+=--<---- CALIBRATIONGSE-UP <=<--=--------- ~~ = =~ = ee 
! Calibration data array for each Zoc: Zoc_cal_(33,10) 
! Format: 
! For ports i=l to 33 
Row 0, column 0: Period 
» column 1: Sample number 
, column 2: Zoc # 
column 3: Calibrator module ID (1"50 psi 2=15 psi) 
>: _ _. _. __ NB NM NL ZO PL PM PH «(pressure Hg.) 
: AO Al A2 A3 NH NM NL ZO PL PM PH (LS coef,press volts) 
LS coef are Least Squares curve fit coef for third order polynomial. 


v> | 

re) 

2 
~-oo0ca 


PRINT 

PRINT "Collecting calibration data.” 

REAL Cal1(1120) ,Cal2(1120) ,Cal3(1120)! ‘Calibration data array 
Count=32*5 ! Set count to collect calibration data 
! 

MAT Zoc_call= (0) 

MAT Zoc_cal2= (0) 

MAT Zoc_cal3= (0) 

Zoc_cal1(0,0)=Period 

Zoc_cal1(0,1)=Sample_number 

Zoc_call1(0,2)=1 : 
Zoc_cal1(0,3)=Cal_mod_id(1) 

Zoc_cal2(0,0)=Period 

Zoc_cal2(0,1)=Sample_number 

Zoc_cal2(0,2)=2 
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Zoc_cal2(0,3)=Cal_mod_ id(2) 
Zoc_cal3(0,0)=Period 
Zoc_cal3(0,1)=Sample_number 
Zoe_cal3(0,2)83 
Zoc_cal3(0,3)=Cal_mod_id(3) 

' ¢ 


Collectwesl gaat: !---- COLLECT RAW CALIBRATION DATA -ccce-eccscer sso e------- 


t 
! Collect raw calibration data for each CALSYS2000 setting 
FOR Index=1 TO 7 
CALL Cal2000(Command_modeS(Index) , Index) 
CALL Scan_zocs (Count, Pulse) 
FOR Zoc_case=™1 TO Zoc_number 
SELECT Zoc_case 
CASE 1 
Input_rblock(Buffer1,Cali(*),160, (Index-1)*160+1) 
CASE 2 
Input_rblock(Buffer2,Cal2(*) ,160, (Index~-1)*160+1) 
CASE 3 
Input_rblock(Buffer3,Cal3(*),160, (Index-1)*160+1) 
END SELECT 
NEXT Zoc_case 
NEXT Index 
! 
! Store collected calibration data 
FOR Zoc_case#1 TO Zoc_number 
SELECT Zoc_case 
CASE 1 
CALL Cal_dat(Cali(*) ,Zoc_call(*)) 
CASE 2 
CALL Cal_dat(Cal2(*),Zoc_cal2(*) ) 
CASE 3 
CALL Cal _dat(Cal3(*),Zoc_cal3(*)) 
END SELECT 
NEXT Zoc_case 
! 
PRINT 
PRINT "Calibration data collection complete.” 
BEEP 
WAIT .25 
BEEP 
OUTPUT 9;VALS(1);"IC";CHRS(13);END! Initialize Calibrator module #1 
OUTPUT 9;VALS(2);"IC"*;CHRS(13);END! Initialize Calibrator module #2 
PRINT 
PRINT "*** Secure Calibrator preasure valve to conserve Nitrogen ***” 
PRINT 
PRINT "CALSYS2000 Calibration modes and pressures (in Hg):” 


Fmt1:IMAGE /,5X,K,10X,K,10X,K,10X,K 


PRINT USING Fmt1;"Mode"”,"Zoc #1","Zoc $2","Zoc $3” 


Fmt2: IMAGE 6X,K,10X,3D.4D,8X,3D.4D, 8X,3D.4D 


FOR I=4 TO 10 
PRINT USING Fmt2;Command_modeS(I-3),Zoc_cal1(0,I),Zoc_cal2(0,I),Zoc_cal3(0,1) 
NEXT I 
DISP "Select F4 for another data run, or F6 to reduce data" 
GOTO Hold 
! 
Reduce data: !----- REDUGE DATA. AND STORE<ON GARD) DRIVE s-<<<-<---"-<<------- 
! Routine loads raw and calibration data from storage drive, reduces the 
! data, and stores the data to the storage drive. 
! 
CLEAR SCREEN 
PRINT “Calibration and Raw data reduction and storage.” 
PRINT 
IF Run=0 THEN 
INPUT "Enter the date of data for for reduction (YMMDD):",DateS 
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INPUT “Number of Zoc’s connected to Multi-programer”, Zoc_number 
INPUT "Select data storage drive (0=:,700 1=:,700,0,1 2=:,700,1)",Drv_case 
SELECT Drv_case 
CASE 0 
Data_driveS="; ,700,0,0" 
CASE 1 
Data _driveS="*,700,0,1" 
CASE 2 
Data driveS=": ,700,1" 
END SELECT 
END IF 
! 
MAT FileS= ("-") 
FOR Zoc_case™1 TO Zoc_number’ !Assign files from storage to FileS(*) 
SELECT Zoc_case 
CASE 1 
CALL File_scan(1) 
CASE 2 
CALL File_scan(Z) 
CASE 3 
CALL File_scan(3) 
END SELECT 
NEXT Zoc_case 
! 
PRINT “Current files on storage disc ";Data_driveS;” for date ";DateS 
PRINT 
FOR Rn=1 TO Run 
FOR Zn=1 TO Zoc_number 
FOR I=#1 TO 3 
PRINT USING "3X,K,#";FileS(Rn, (Zn-1)*3+I) 
NEXT I 
PRINT USING "+,L" 
NEXT Zn 
NEXT Rn 
PRINT 
! 
FOR Run_red#1 TO Run ! Reduce data routine. 
FOR Zoc_case#l1 TO Zoc_number 
SELECT Zoc_case 
CASE 1 
CALL Raw_red_dat(1,Run_red) 
CASE 2 
CALL Raw_red_dat(2,Run_red) 
CASE 3 
CALL Raw_red_dat(3,Run_red) 
END SELECT 
NEXT Zoc_case 
NEXT Run_red 
Run=0 
Data_reduced=1 
BEEP 
DISP "Select F3 reinitialize set-up for data collection, or F8 to Exit” 
GOTO Hold 
! 
View files: {----- VIEW FILES ON STORAGE DRIVE <<3 3304 6 e eee ee = == 
! Routine loads files from storage drive and displays file names. 
! 
CLEAR SCREEN 
PRINT “List Raw, Calibration and Reduced data files.” 
PRINT 
IF Data_reduced=1 THEN Print_files 
IF Run=0 THEN 
INPUT "Enter the date of data for for reduction (YMMDD):",DateS 
INPUT “Number of Zoc'’s connected to Multi-programer”,Zoc_ number 
INPUT "Select data storage drive (0#:,700 1=*:,700,0,1 27:,700,1)",Drv_case 
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3910 SELECT Drv_case 
3920 CASE 0 


3930 Data _driveS=":,700,0,0” 
3940 CASE 1 

3950 Data _driveS=":,700,0,1" 
3960 CASE 2 

3970 Data _driveS=":,700,1" 
3980 END SELECT 

3990 END IF 


4000 Print_files: ! 

4010 PRINT "Data storage drive name => ”;Data_ drives 

4020 ! 

4030 MAT FileS= ("-") 

4040 FOR Zoc_case=1 TO Zoc_number ‘Asaign files from storage to FileS(*) 
4050 § SELECT Zoc_caae 

4060 CASE 1 


4070 CALL File _scan(1l) 
4080 CASE 2 
4090 CALL File scan(2) 
4100 CASE 3 
4110 CALL File_scan(3) 


4120 END SELECT 
4130 NEXT Zoc_case 


4140 ! 

4150 PRINT 

4160 PRINT "Current files on storage disc for date ";Date3 

4170 PRINT . 

4180 FOR Rn#1- TO Run {Print the files Listing on the 
4190 FOR Zn=1 TO Zoc_number . tdesignated storage drive. 

4200 FOR I=#1 TO 3 

4210 PRINT USING "3X,K,#";FileS(Rn, (Zn-1)*3+4I1) 

4220 NEXT I 

4230 PRINT USING "/” 


4240 NEXT Zn 

4250 NEXT Rn 

4260 ! 

4270 IF Drv_case<2 THEN 

4280 INPUT "Do you want to copy files from the Hard drive to Floppy? (0=No 1*Yes)",Copy_h to f 
4290 IF Copy_h_to_f-0 THEN End_view 

4300 ON ERROR GOSUB View_error 

4310 PRINT 

4320 PRINT “WARNING: Any duplicate existing files on the Floppy will be copied over!” 


4330 PRINT {Copy the files from the designated 
4340 FOR Rn#1 TO Run thard drive to the floppy drive. 
4350 FOR Zn=1 TO Zoc_number 

4360 FOR I#1 TO 3 

4370 FiSeFileS(Rn, (Zn-1)*3+I) 

4380 COPY FiS&Data driveS TO FiS&": ,700,1" 

4390 IF FiS<>"-" THEN 

4400 PRINT “File "“;FiS;" copied to Floppy” 

4410 END IF 

4420 NEXT I 

4430 NEXT Zn 


4440 NEXT Rn 

4450 PRINT 

4460 PRINT “Files have been copied from ";Data_driveS;" to Floppy :,700,1”" 
4470 END IF 

4480 GOTO End view 

4490 View_error: : 

4500 SELECT ERRN 


4510 CASE 56 !'File doea not exist, then continue. 
4520 CLEAR ERROR 

4530 ERROR RETURN {Return to line following COPY 

4540 CASE 54 . !Duplicate file exist on the floppy, 
4550 PURGE FiS&": ,700,1" 'then purge the dup file, retrun to 
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4560 CLEAR ERROR 

4570 RETURN 'the line COPY and copy the file. 
4580 CASE ELSE 

4590 DISP ERRMS 

4600 PAUSE 

4610 END SELECT 

4620 ! 

4630 ! 

4640 End_view: ! 

4650 Run=0 

4660 DISP "Select F2 to return to menu, or F8 to Exit” 
4670 GOTO Hold 

4680 ! 

4690 Finish:! 

4700 LOAD "ZOC MENU”,10 

4710 ! 

4720 END 

4730 End, | een ee 
4740 ! Function to return todays date for input into file names 
4750 DEF FNDateS(Seconds) 

4760 Julian=Seconds DIV 86400-1721119 

4770 Year=(4*Julian-1) DIV 146097 

4780 Julian#=(4*Julian-1) MOD 146097 

4790 Day*Julian DIV 4 

4800 Julian=(4*Day+3) DIV 1461 

4810 Day=(4*Day+3) MOD 1461 

4820 Day=(Day+4) DIV 4 

4830 Month=(5*Day-3) DIV 153. ! Month 

4840 Day=(5*Day-3) MOD 153 

4850 Day=(Day+5) DIV 5 ! Day 

4860 Year@=100*YeartJulian 

4870 IF Month<10 THEN 





4880 Month=Month+3 
4890 ELSE 

4900 Month=Month+3 
4910 Year=Yeart+i 


4920 END IF 
4930 YearS=VALS (Year) 
4940 IF Month<10 THEN 


4950 MonthS="0"&VALS (Month) 
4960 ELSE 
4970 MonthS=VALS (Month) 


4980 END IF 
4990 IF Day<10 THEN 


5000 DayS="0"&VALS (Day) 
$010 ELSE 
$020 DayS=VALS (Day) 


5030 END IF 

5040 DS“YearS[4])&MonthSé&DayS 

5050 RETURN DS 

5060 FNEND 

5070. Pe ee en a a ee 
5080 ! Subroutine to build file names as required by Run number for a specified 
5090 ! Zoc, and assign existing files to the FileS matrix. 

5100 SUB File(Zn) 

5110 COM /Stats/ REAL Pulse,Sample_number, Pause for, INTEGER Cal_mod_id(3),DateS,Run 
5120 COM /Files/ FileS(*),Data drives 

5130 DIM Data_disc1S$(23) ,Data_disc2S[(23] ,Data_disc3$(23) 

5140 ON ERROR GOTO Error 

5150 J=(Zn-1)*3 

5160 Assign file: t 

5170 Filel=0 

5180 Data filelS="ZW"&VALS(Zn)&DateS&VALS (Run) 

5190 Data_discl3=Data_filelS&Data_ drives 

5200 ASSIGN @Check_pathl TO Data disc1S !Check for existance of ZW_. 
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5210 FileS(Run, J+1)=Data_filelS !Assign ZW_ to matrix. 

5220 Filal=1 'Flag to ID file exists. 

5230 ! 

5240 File2=0 

5250 Data _ file2S="ZC"&VALS(Zn)&DateS&VALS (Run) 

$260 Data_disc2S=Data_file2S&Data_ drives 

5270 ASSIGN @Check_path2 TO Data _disc2sS 'Check for existance of ZC _. 
5280 FileS(Run,J+2)=Data_file2s !Assign ZC_ to matrix. 

$290 File2=1 {Flag to ID file exists. 

5300 ! 

3310 Data _file3S="ZR”"&VALS(Zn)&DateS&VALS (Run ) 

$320 Data_disc3S=Data_ file3S&Data_ drives 

$330 ASSIGN @Check_path3 TO Data _disc3S {Check for existance of ZR_. 
5340 FileS(Run,J+3)=Data_f11¢e3S8 tAssign ZR_ to matrix. 

3350 ! 

5360 Run=Run+1 {If ZW_ exist, reassign Run # 
5370 ASSIGN @6Check_pathl TO * 

5380 ASSIGN @Check_path2 TO * 

5390 ASSIGN @6Check_path3 TO * 

$400 GOTO Assign file {Check storage disc again. 

5410 Error: ! Subroutine if ERROR=56, files donot exist for Run and Zoc 
5420 IF ERRN<>56 THEN 

5430 PRINT ERRMS 

5440 PAUSE 

5450 END IF 

3460 IF Filei=0 THEN Fin {File ZW_ doesnot exist, exit 
3470 IF Filel=1 THEN {File ZW_ exists 

$480 IF File2=0 THEN [File ZC doesnot exists, therefore 
$490 ASSIGN @Check_pathl TO * 

3300 PURGE Data_discl [delete ZW_. 

3310 ELSE 

$520 Run#Runt+1 [File ZW_& ZC_ exist, step Run 
3330 END IF fand continue. 

3340 END IF 

5550 ASSIGN @Check_pathi TO * 

5560 ASSIGN @Check_path2 TO * 

5570 ASSIGN @Check_path3 TO * 

5580 GOTO Assign file 

$590 Fin: ! 

5600 ASSIGN @Check_pathl TO * 

5610 ASSIGN @Check_path2 TO * 

$620 ASSIGN @Check_path3 TO * 

5630 Data_file2S="Z7C"&VALS(Zn)&DateS&VALS (Run ) 

3640 Data_file3S=" ZR” &VALS (Zn)&DateS&VALS (Run) 

$650 FileS(Run, J+1)=Data_filels !Create ZW_ to matrix. 

5660 FileS(Run,J+2)=Data_file2S !Create ZC_ to matrix. 

$670 FileS(Run, J+3)=Data_file3$ ‘Assign ZR_ to matrix. 

3680 SUBEND 

ee oe Se ee ee ee aa = ees <= 
$700 ! Subroutine to operate the HP6944A Multi-programmer for scanning Zocs. 
5710 SUB Scan_zocs(Count, Pulsa) 

5720 COM /Names/ Bufferl,Adel1,Buffer2,Ade2, Buffer3,Ade3,Timer 

5730 Wait_time=Count*2*Pulseti10.0 ! Set Timer wait time to +10 secs. 
5740 Init (Timer) ! Initialize Timer system 

5750 Sat_timaout (Timer ,Wait_tima) ! Set Pause_for period of xx secs. 
5760 Sat_count (Timer, Count) ! Set Count number into Timer 

$770 Set_period(Timer, Pulsa) ! Set Timar pulse length in secs. 
$780 Init (Bufferl1) ! Initialize Buffer for data storage 
3790 Init (Buffar2) 

5800 Init (Buffer3) 

5810 Start (Timer ) ! Start data sample collection 

5820 Wait _for(Timer) ! Data samples stored in Memory System 
5830 SUBEND 

ee ee a ee gna eae e mms rears sneer 
5850 ! Subroutine to collect raw pressure data from Memory System and store 
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§6860 ! onto tha hNhsrd driva for future data reduction. 


5870 
5660 
5690 
5900 
5910 
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5950 


SUB Raw _dat(Buff, Zn) 


COM /Stats/ REAL Pulse,Sample_number, Pause for, INTEGER Cal_mod_id(3),DateS, Run 
COM /Files/ FileS(*),Data_driveS ! Data file listing for 99 runs. 
ON ERROR GOTO Error 
INTEGER Raw _data(32672) BUFFER ! Integer raw data buffer for 32*1021 
{ data samples. Integer format for 
{ mininum transfer time to storage. 
DIM Data_discS(23] 
Sn=Sample_number 


5960 Assign file: ! 


$970 
5960 
5980 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6060 


Data_fileS=FilaS(Run,(Zn-1)*3+1) ! Raw data file 
Data_discS=Data_fileS&Data_ drives 

CREATE BDAT Data_discS,32*Snt1,2 ! Craate BDAT file of 2 byte records. 
ASSIGN @Data_path TO Data_discS ! Assign path to hard drive 

ASSIGN @Buffer_ path TO BUFFER Raw _data(*);FORMAT OFF 
Input_iblock(Buff,Raw_data(*),Sn*32,1) ! Load data samplas 

CONTROL @Buffar_path, 4;32*2*Sn+2 ! Closa buffar when full 
TRANSFER @Buffer_path TO @Data_path ! Transfer data Data_disc 

ASSIGN @Buffer_path TO * 

ASSIGN @Data_path TO * 

PRINT “Raw pressure data: Run#";Run;", Zoc#";Zn;", storage drive file ";Data_fileS&Data drives 
GOTO Fin 


6090 Error: ! 


6100 IF ERRN<>54 THEN 

6110 PRINT ERRMS 

6120 PAUSE 

6130 END IF 

6140 IF ERRN#=54 THEN { Run step routine when compiling 
6150 Run*Run+1 { multiple data runs without data 
6160 CALL File(Zn) { reduction. 

6170 END IF 

6160 GOTO Assign file 

6190 Fin: ! 

6200 SUBEND 

oN I I I SS SSS 


6220 ! Subroutina controls calibration mode and raads prassura from Pressura 
6230 ! Standard into Zoc_cal(*) array. 


6240 
6250 
6260 
6270 
6260 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
8430 
6440 
6450 
6460 
6470 
6480 
6490 


SUB Cal2000(CommandS, I) 


COM /Zoc_dat/ REAL Zoc_cali(*) BUFFER,Zoc_cal2(*) BUFFER,Zoc_cal3(*) BUFFER 
COM /Stats/ REAL Pulse,Sample_number,Pausa_ for, INTEGER Cal_mod_id(3),DateS,Run 
DIM PrassureS([(5] { Required to raad data straam 

OUTPUT 9;VALS(1);CommandS ;CHRS(13);END ! Sets calibrstor #1 moda 

OUTPUT 8; VALS(2);CommandS;CHRS(13);END ! Sets calibrator #2 moda 


WAIT Pause for ! Allow CALSYS2000 to stabilize 
FOR K#1 TO Cal_mod_id(0) ! Read CALSYS2000 cal press 
SELECT K 
CASE 1 


OUTPUT 9;VALS(Cal_mod_id(1));"RP";CHRS(13); END 

ENTER 9 USING "#,SD.5DESZZ ,K"; Zoc_cal1(0,I+3),PressureS 
CASE 2 

OUTPUT 9;VALS(Cal_mod_id(2));"RP";CHRS(13); END 

ENTER 9 USING "#,SD.5DESZZ,K";Zoc_cal2(0,1I+3), Pressures 
CASE 3 

OUTPUT 9;VALS(Cal_mod_id(3));"RP" ;CHRS(13);END 

ENTER 9 USING "#,SD.S5SDESZZ,K"; Zoc_cal3(0,I+3), PressureS 
END SELECT 


NEXT K 
IF I<=3 THEN t Account for positiva pressures used 


Zoc_cal1(0,I+3)=-Zoc_cal1(0,I+3) ! by CALSYS2000 in the NH,NM, & NL mode. 
Zoc_cal2(0,I+3)#-Zoc_cal2(0,I+3) 
Zoc_cal3(0,I+3)*-Zoc_cal3(0,1I+3) 

END IF 


SUBEND 
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6510 ! Subroutine stores calibration data collected from Memory System and 
6520 ! CALSYS2000 calibration pressure data onto the hard drive. 

6530 ! Zoc_cal_ is then stored onto the hard drive. 

SUB Cal _dat(REAL Cal(*),Zoc_cal(*) BUFFER) 


6540 
6550 
6560 
6570 
6560 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6660 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6620 
6630 
6640 
6850 
6660 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 


! 
! 


! 
! 


COM /Stats/ REAL Pulse,Sample_ number, Pause for, INTEGER Cal _mod_id(3),DateS,Run 
COM /Files/ FileS(*),Data_driveS ! Data file listing for 99 runs. 


Converting Cal(*) to Zoc_cal(*) 


FOR J#=4 TO 10 ! Cal runs: NH,NM,NL, ZO, PL, PM, PH 
FOR I#1 TO 32 ! Zoe ports per calibration run 
FOR K=O TO 4 { Numbar of samples per run 
Zoc_cal(I,J)sZoc_cal(I,J)+Cal(I+K*32+(J-4)*160) 
NEXT K 


Zoc_cal(I,J)=Zoc_cal(I,J)/5 ! Average of 5 samples per port I 
NEXT I 
NEXT J 


Transfer calibration data to hard drive. 

ON ERROR GOSUB Purge file , 

DIM Data disc$[(23} ! Define string for data file nama 
Zn*=Zoc_cal(0,2) ! Dafina Zoc number 
Data_fileS=FileS(Run, (Zn-1)*3+2) ! Calibration data fila 

Data _discS=Data filaS&Data_drivaS 

CREATE BDAT Data _discS,33,8*11 ! Craata BDAT fila of 11*8 byte 
ASSIGN @Data_path TO Data discS ! Assign path to hard driva 
ASSIGN @Buffer_path TO BUFFER Zoc_cal(*);FORMAT OFF 

CONTROL 6Buffer_path,4;6*11*33 !Set data file langth 

TRANSFER @Buffer_path TO @Data_path!Store cal data on hard drive 
ASSIGN @Buffer_path TO * ! Close path 

ASSIGN @Data_path TO * ! Close path 

PRINT “Calibration data: Run#”";Run;”, Zoc#";Zn;", storage drive file ";Data_ discS 
GOTO Fin 


Purge file: ! 


IF ERRN=54 THEN 
PRINT “Error occured in SUB Cal_dat. Error:”;ERRN 
PAUSE 

END IF 

RETURN 


Fin: ! 


Subroutine loads raw and calibration data from the storsge drive, 
reduces the data, and stores the data onto the storage drive. 
Calibration data is reduced using the Least Squares Curva fit to obtain 
coefficients for a third-order polynomial. The raw pressure data is 
reduced using these coefficients. 

Buffer arrays are replaced with standard arrays for data manipulation. 
Utilization of Buffers and the TRANSFER routine results in lost of the: 
first several data bytas when data is transfarred from floppy media to 
tha buffer. Utilization of OUTPUT, ENTER, and srrays results in no 
data lost with floppy media. Hard disc media works wall with either 
data manipulation techniqua using buffers or standard arrays. 
UB Raw_red_dat(Zn,Rn) 

COM /Names/ Buffarl,Adcl,Buffer2,Ade2,Buffer3,Adc3, Timer 

COM /Stats/ REAL Pulse,Sample number, Pause. for, INTEGER Cal_mod_id(3),DateS[(6},Run 
COM /Files/ FileS(*),Data drives (Data file listing for 99 runs. 


Data _filelS=FileS(Rn, (Zn-1)*3+2) ! Calibrstion data file 
Data_file2S=FileS(Rn, (Zn-1)*3+1) ! Raw data file name 
Data fila3S=FileS(Rn, (Zn-1)*3+3) ! Reduced data file name 


! 

IF Data _fila3$<>"-" THEN 
GOTO Fin 

END IF 

' 


IF Data_filelS="-" THEN 


Continua if Reduce data file 
doesnot exist. 
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7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 


7650 ! 


7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 


PRINT "Calibration file doesnot exist for Run#";Rn;", Zoc#";:Zn 
GOTO Fin 
END IF 
! 
ON ERROR GOSUB Error 
DIM Data_disc1S(23] 
DIM Data_disc23$(23] 
DIM Data_disc38(23] 
Data_disciS=Data_filelS&Data_ drives 
REAL Zoc_cal(32,10) tArray to handle calibration data 
! 
Data_reduction: ! 
PRINT “Data reduction: Run#g";Rn;", Zoc#”:Zn 
! 
ASSIGN @Data_pathi TO Data_disc1$;FORMAT OFF 
ENTER @Data_path1;Zoc_cal(*) !Load raw calibration data into array 
ASSIGN @Data_pathl TO * 
! 
! Calibration data reduction using Least Squares Polynominal fitting. 
REAL A(3,3),B(3),C(3),Sum_x(6),A_inv(3,3)! Least Square reduction arrays 


FOR K=1 TO 32 ! Loop for each port 
! 
MAT C= (0) 
MAT Sum_x= (0) 
! 
FOR J=1 TO 6 ! Routine to reduce individual port cal 
FOR I=4 TO 10 ! data into elements to a power x” j 
Sum_x(J)*Sum_x(J)+Zoc_cal(K,I)“J 
NEXT I 
NEXT J 
! 
FOR I=0 TO 3 ! Derive A array 
FOR J=0 TO 3 
ACI, J)=Sum_x(I+J) 
NEXT J 
NEXT I 
A(0,0)=7 
! 
FOR J=0 TO 3 ' Derive C array 


FOR I=4 TO 10 
C(J)mC(J)+Zoc_cal(K,I)“J*Zoc_cal(0,I) 
NEXT I 
NEXT J 


MAT A_inv= INV(A) 

MAT B= A_inv*C ! B array is matrix of Least Square 
! coefficients a0,al,a2,& a3 for polynomial 
! equation fitting calibration data for a 
! specified port 
' 
' 


! Collect Least Square coefficients. 


Zoc_cal(K,0)=B(0) !Coefficient a0 
Zoc_cal(K,1)=B(1) !Coefficient al 
Zoc_cal(K,2)=B(2) !Coefficient a2 
Zoc_cal(K,3)=B(3) !Coefficient a3 
' . 
NEXT K 


! 

ASSIGN @Data_pathl1 TO Data_disciS;FORMAT OFF 

OUTPUT @Data_ pathl;Zoc_cal(*) !Store reduced calibration data 
ASSIGN @Data_pathl TO * 

! 

PRINT “Calibration data reduced and transferred to ";Data_ filelS 

! 

' Recover raw data, convert to real, reduce then store in blocks 
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7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
78390 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8280 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 


ft of aamplaa (32 porta scannad par block) 
Sn=Zoc_cal(0,1) !Sampla number. 
INTEGER Data_integer(1;32) fArray to handle raw integer data. 
REAL Data raal(1:32),Data(32) !Arraya to handle raw and reduced 
Data _diac2S—Data file2S&Data_drivaS !real data. 
Data fila3S="ZR"&VALS(Zn)&DateS&VALS(Rn) {!Reducad data file name. 
Data _disc3S=Data file3S&Data drives 
CREATE BDAT Data _diac3S,Sn,8*33 'BDAT file of 33*8 byte records. 
ASSIGN @Data path2 TO Data_disc28;FORMAT OFF 
ASSIGN @Data _path3 TO Data _diac33;FORMAT OFF 
! 
CONTROL @Data_ path2,5;2 {Set raad pointer to 2nd record 
! fin raw interger data fila. 
FOR Block=1 TO Sn 
ENTER @Data_path2;Data_integer(*) {Load raw data into array. 
SELECT Zoc_cal(0,2) {Tranalating raw intergar data into 
CASE 1 fraw raal data. 
Translata(Adc1,Data_intager(*),Data real(*)) 
CASE 2 
Tranalata(Adc2,Data_integer(*),Data real(*)) 
CASE 3 
Tranalata(Adc3 ,Data_integar(*),Data raal(*)) 
END SELECT 
! 
f Routina to reduca raw real data: 
! 
t Data = a0 + al*x + a2*x°2 + a3*x°3 
! 
! where a0,al,a2, & a3 are Least Square coefficianta, and x ia 
{ the individuel port raw dete velue. 
! 
. Data(0)=Block { Store reduce data aample numbar. 
FOR K=1 TO 32 
Data(K)eZoe_cal(K,0)+Zoc_cal(K,1)*Date real(K)+Zoc_cal(K,2)*Data_raal(K)°2+Zoc_cal 
NEXT K 
{ = 
OUTPUT @Data_ path3;Data(*) {Store block of raducad data into 
NEXT Block finto the fila on tha dasignated drive. 
! 
ASSIGN @Data path3 TO * 
ASSIGN @Data path2 TO * 
PRINT "Raw data reducad and transferrad to ";Data_file3$ 
PRINT 
GOTO Fin 
Error: !Routine to trap arror in program. 
PRINT ERRMS 
PAUSE 
RETURN 
Fin: ! 
SUBEND 
! (amass Gan Gun OD Ge (can MS DS DGS CR Gaus > a Ge <A MD | GND AN GS Gb (am as Ga ee GE a ee AD GE Ga Ep GD oe a a Gi Gn Gn Gn Gn Gn Gn Gs Gb Gn Gn an oS an:an Gn an en an .en as an'as oS an an a= an an an on on 
! Subroutina to load existing filea raquirad by Run number for a specified 
{ Zoc, and aaaign existing filaa to the FileS matrix for Data reduction 
{ and Liat files routinas. . 
SUB Fila scan(Zn) 
COM /Stata/ REAL Pulse,Sample_ number, Pause for, INTEGER Cal_mod_id(3),DateS,Run 
COM /Filaa/ FileS(*),Data drives 
DIM Data_diac1$(23] ,Data_diac2$(23) ,Data_disc3S[(23) 
Rn=1 
Loop=1 
Fila in _storaga=0 
ON ERROR GOTO Error : 
J=(Zn-1)*3 
WHILE Loop=1 
Filal=0 
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Error: 


Data_filelS="ZW"E&VALS (Zn )&DateS&VALS (Rn) 
Data_disc1S=Data_filelS&Data_ drives 
ASSIGN @Check_pathl TO Data _discl1S !Check 
FileS(Rn,J+1)=Data_filelS Assign 
Filel=1 


Data_file2S="ZC"&VALS (Zn )&DateS&VALS (Rn) 
Data_disc2S=Data_file2S&Data_driveS 
ASSIGN @Check_path2 TO Data_disc2S !Check 
FileS(Rn,J+2)"Data_file2s {Assign 


Data_file3S="ZR"&VALS(Zn)&DateS&VALS (Rn) 
Data _disc3S=Data_file3S&Data_ drives 
ASSIGN @Check_path3 TO Data_disc3S !Check 


ASSIGN @Check_pathl TO * 
ASSIGN @Check_path2 TO * 
ASSIGN @Check_path3 TO * 


for existance of Z2W_. 
ZW_ to matrix. 


—_ 


for existance of ZC _. 
ZC_ to matrix. 


for existance of ZR. 


FileS(Rn,J+3)=Data_file3$ !Assign ZR_ to matrix. 
GOTO Assign_file {Check storage disc again. 
! Subroutine if ERROR=56, files donot exist for Rn and Zoc 
IF ERRN<>56 THEN 
PRINT ERRMS 
PAUSE 
END IF 
Assign file:! 
IF Filel=1 THEN !Switch to begin entering 
File in_storsge=1 !file names in to FileS 
END IF 
IF Filel=0 THEN 
IF File in _storage=1 THEN !Switch to exit routine 
Loop#=0 fonce entries are made 
END IF linto FileS 
END IF 


IF Rn=100 THEN !Exit routine after checking 


Loop=0 lup to 
END IF 
Rn#Rn+1 


100 possible Run #s 


END WHILE 
Fin: ! 

Run#=Rn-2 
SUBEND 
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! Program: READ _ ZOC 
! Dascription: Reads specified data compiled from program SCAN ZOC 04. 
CLEAR SCREEN 
PRINTER IS CRT 
DIM Data_disci$[(23] 
DIM Data disc2$[(23] 
INPUT “Enter Zoc # (1,2,3), date (YMMDD), and run #:",Zoc,DateS, Run 
INPUT “Print rasults to screen or printer (O=Screen 1=Printer)”, View 
IF View=1 THEN 
PRINTER IS 711 
ELSE 
PRINTER IS CRT 
END IF 
Data filalS="ZC"&VALS(Zoc )&DateS&VALS (Run) 
Data file2S="Z2R"&VALS (Zoc )&DataS&VALS (Run ) 
Data _disciS=Data_ filaiS&":,700,0,1" 
Data _disec2S=Data_fila2S&": ,700,0,1" 
ASSIGN @Data pathi TO Data disciS 
ASSIGN @Data_path2 TO Data_disc2$ 


REAL N1,N2 
STATUS @Data_pathi1,3;N1 ! Determine number of records 
STATUS @Data_path2,3;N2 { Determine number of records 


ALLOCATE REAL Cal(N1-1,10),Data(1:N2,32)! Dafina REAL array of records 
ENTER @Data_path1;Cal(*) 

ENTER @Data_path2;Data(*) 

Period=Cal(0,0) 

H2-1/Period 

Sample_number=Cal(0,1) 

zZoc=Cal(0 ’ 2) 


Print_results: ! 


PRINT “Data Print Out for Zoc #$";Zoc:”, Rum #";Run 

PRINT 

PRINT TAB(5);"“Period between samples (sec):";Period 

PRINT TAB(5);"Sample collection rate (Hz): ";Hz 

PRINT TAB(5);"“Number of samples per port: ";Sample_numbar 

PRINT TAB(S);:"Langth of data run (sec): ":Period*31*Sampla_ numbar 


Loop: |! 


PRINT 
INPUT “Entar port number for date (O#Exit):",Port_numbar 
IF Port_number=0 THEN Finish 
INPUT “Entar First sampla# of run to be viewed:”,Samplel 
INPUT "“Entar End sampla#@ of run:",Sample2 
PRINT “Data Tabulation for Port #";Port_number;"from file: ";Data_file2S 
PRINT 
PRINT USING “K,6X,K,6X,K";"Sample”,"Time (sec)","Pressure (Hg. )” 
FOR Sample=Samplel TO Sample2 
PRINT USING "5D,7X,2D.5D,8X,3D.5D";Sample, ((Sample-1)*32+(Port_numbar~1))*Period,Data 
NEXT Sample 
GOTO Loop 


Finish: ! 


ASSIGN @Data_pathi TO * 
ASSIGN @Data_path2 TO * 
DEALLOCATE Cal(*) 
DEALLOCATE Data(*) 
PRINT 

PRINT 

PRINTER IS CRT 

LOAD “ZOC_MENU”, 10 

END 
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! Program: PLOT_DATA 

! Descript: Plots reduced data compiled by SCAN Z20C_ 04. 

! Actual data pointa are ploted as squares. Square size 

! can be adjusted by varying variable Sc in Line 110. 

! 

COM /Plot_labela/ REAL Xo,Xf,Yo,Yf,Dx,Dy, TitleS(60),X_labelS(50) ,Y_labelS(50) 
t 

CLEAR SCREEN 

PRINTER IS CRT 

Sc#.005 {Scale size of plotting squares 

PRINT “Program: PLOT_DATA” 

PRINT 

PRINT "Program plota the reduced data compiled by the program SCAN ZOC 05.” 
PRINT "Hard copiee of plots can be reproduced to either the HP Think Jet” 
PRINT “printer or HP Laaer Jet printer.” 

PRINT 

PRINT 

PRINT "Preaa F2 to continue after calibration diaplay is plotted” 

PRINT "Preaa <Shift> <Dump Graph> for printout of plot on tha printar" 

! 

! Load date: —29<<<9+ee~ es — neon en ene eees sess ees <=<5S==---___ -- - - aan 
DIM Data_disc1$(23] 

DIM Data_disc28(23)} 

INPUT "Enter Zoc # (1,2,3), Date (YMMDD), Run #:",Zoc,DateS,Run 

File _namalS="ZC"&VALS(Zoc )&DateS&VALS (Run ) 

File name2S="ZR"&VALS (Zoc )&DataS&VALS (Run) 

Data _disc1S=File namalS&":,700,0,1” 

Data _diac2S=File name2S&": ,700,0,1" 

ASSIGN @Data_pathl TO Data discl1$ 

ASSIGN @Data_path2 TO Data _diac23 


REAL N1,N2 
STATUS @6Data_ path1,3;N1 { Determine number of recorda 
STATUS @Data_ path2,3;N2 ! Determine number of records 


ALLOCATE REAL Cal(N1-1,10),Data(1:N2,32)! Define REAL array of recorda 
ENTER @Data path1;Cal(*) 

ENTER 6Data_path2;Data(*) 

Period=Cal(0,0) 

Hz1/Period 

Sample_number=Cal(0,1) 

Zoc=Cal (0,2) 


Dispiay.c8 Cateye: (| oss ss a al le ea al 


CLEAR SCREEN 

PRINT "Program plota raduced data from file ";File name2S 
PRINT 

PRINT "Statistics for Zoc #";Zoc 

PRINT 

PRINT TAB(5);"Period between aamplea (maec):";Period*1000 
PRINT TAB(5);"Sample collection rate (Hz): ";Hz 


PRINT TAB(5);"Numbar of samples per port: "“;Sample_number 

PRINT TAB(5);"Length of data run (msec): ";((Sample_number-1)*32+31)*Period*1000 
PRINT 

PRINT 


PRINT "Data point can be plotted as a continuous line, or squares.” 
PRINT 

PRINT "Nota: Wait for symbol ‘'*’ in lower right corner of CRT to change” 
PRINT ” to a ’-’ before pressing <Shift><Dump Graph>" 

' 

INPUT "Enter Port #:",P 

INPUT "Enter min range of pressure reading (in Hg):",Yo 

INPUT “Enter max range of pressure reading (in Hg):",Yf 

INPUT "Enter Start time for plot (msec):”,Xo 

INPUT "Enter Stop time for plot (msec)):” Xf 

INPUT “Enter type of data point plotting (O*Squares 1=Line):",Plot_case 
INPUT "Plots DUMPED to Think Jet or Laser Jet: (0=TJ 1=LJ)",Dump_device 
IF Dump_device=1 THEN 
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910 Finish: 


920 
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DUMP DEVICE IS 9 
ELSE 

DUMP DEVICE IS 711 
END IF 
! 


TitleS="Reduced Data Plot of Port# "“&VALS(P) 
X_labelS="Time (msec)" 
Y_labelS="Pressure (In Hg)” 
Dx=10 


Dy=10 
! 


{Tic marks per X-axis on plot 
!Tic marks per Y-axis on plot 


[erLOG ©OUL LER te. -- —=—-—<==<<===-<--=<-=---—-----_----------==------------- 
CALL Plot fRountine to display graph background 
FOR I=1 TO Sample_number !Plot Squares around data points 
Sample time=((Data(I,0)-1)*32+(P-1))*1000*Period 
SELECT Plot_case 
CASE 0 
PLOT Sample_time, Data(I,P),-2 
CALL Square(Xo,Xf,Yo,Yf,Sc) 
CASE 1 
PLOT Sample_time,Data(I,P) 
END SELECT 
NEXT I 
! 
PAUSE 


tMove pen to data point position 
!Subrountine to plot squares 


CLEAR SCREEN 

INPUT "Graph another calibration plot: ( 0=No l=Yea )”,Again 

IF Againel THEN Display_stats 

ASSIGN @Data_pathl TO * 

ASSIGN @Data_path2 TO * 

DEALLOCATE Cal(*) 

DEALLOCATE Data(*) 

PRINTER IS CRT 

DUMP DEVICE IS 711 

LOAD "ZOC_MENU”,10 

END 

SUB Plot 

! 

! Subroutine to display plot screen, less the plots of any curves 

! for the specified variables in the COM /Plot_labels/ line. 
COM /Plot_labels/ Xo,Xf,Yo,Yf,Dx,Dy,TitleS,X_labelS,Y_labelS 
CLEAR SCREEN 
KEY LABELS OFF 
GINIT 
X_range=Xf-Xo 


a i a a a a a a a a re a ee ae 7) a 








tInitialize graph routine 
{Length of X-axis 


Y_range=Yf-Yo 


!Length of Y-axis 


LORG 8 !Character ref pt:top center 

MOVE 100*RATIO/2,100 'Move cursor to screen loc for labels 
CSIZE 3 {Sizes labeling 

LABEL TitleS !Plot title 

MOVE 100*RATIO/2,90 'Move cursor to bottom center screen 
LORG 4 !Character ref pt:bottom center 

LABEL X_labelS !X-axis label 

DEG {Desig degrees for LDIR 

LDIR 90 'Sets Y-axis label on end 

LORG 6 

MOVE 0,50 

LABEL Y_labelS Y-axis label 

LDIR 0 {Reset label to horizontal orientation. 
LORG 2 !Chr ref pt: left center 


VIEWPORT 10,90*RATIO, 10,90 
FRAME 
WINDOW Xo ,Xf,Yo,Yf 
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!'Sets graph screen size 
!Box around VIEWPORT 
'Set axis lengths in VIEWPORT 
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1310 AXES X_range/Dx,Y_ range/Dy,Xo, Yo tAxes intersect at lower left 


1320 AXES X_range/Dx,Y_ range/Dy ,Xf,Yf !Axes intersect at upper right 
1330 GRID X_range/Dx,Y_range/Dy,Xo, Yo,Dx,Dy, .001 

1340 CLIP OFF 'So labels can print outside VIEWPORT 
1350 CSIZE 3.0, .4 !Axes Label size 

1360 LORG 6 ‘Number X-axis 

1370 FOR I=Xo TO Xf STEP X_range/Dx 

1380 MOVE I, Yo-.01*Y_ range 

1390 LABEL USING "“#,K";I 

1400 NEXT I 

1410 LORG 8 {Number Y-axis 

1420 FOR I#Yo TO Yf STEP Y_range/Dy 

1430 MOVE Xo-.01*X_range,I 

1440 LABEL USING “#,K";I 


1450 NEXT I 

1460 CLIP ON 

1470 ! 

1480 SUBEND 

1490 SUB Square(Xo,Xf,Yo,Yf,Sc) 

1500 !Subroutire to plot squares around the local origin designated 
1510 ‘t!by the PLOT statement. 

1520 Xd=Se*(Xf-Xo) 1X displacement for RPLOT 
1530 Yd=Sc*(Yf-Yo)*RATIO 1Y displacement for RPLOT 
1540 RPLOT -Xd,Yd,-2 

1550 RPLOT Xd, Yd,-1 

1560 BRPLOT Aa, -id-) 

1570 RPLOT ~Xd,~-Yd,-1 

1580 RPLOT -Xd,Yd,2 

1590 SUBEND ‘ 
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! Program: CAL READ PR1 

Description: program to operate CAL2000 calibration modes sequentially 
! and read corresponding calibration pressures in Hg as a 

! test bad for later insertion into the Zoc scanning programs 
! Author: Rick Wendland, Naval Postgraduate School, Monterey CA 

! Tele: (408) 646-2165 

! 

CLEAR SCREEN 

PRINTER IS CRT 

PRINT "Program: CAL_READ PR1” 

PRINT 

PRINT “ This program sequentially sets the CAL2000 calibration” 

PRINT “ modes and reads the corresponding internal Pressure Standard" 
PRINT ” for that mode.” 


PRINT 

PRINT “ PH Positiva high range pressure to CAL(+)” 
PRINT " PM Positiva mid range pressure to CAL(+)" 
PRINT " PL Positiva low range pressure to CAL(+)" 
PRINT “ ZO CAL(+) & REF(-) connected together" 
PRINT " NL Negative low range pressure to REF(-)”" 
PRINT " NM Negative mid range pressure to REF(-)" 
PRINT " NH Negative high range pressure to REF(-)” 


! 
INPUT “Display results to CRT or PRINTER? (0=CRT 1=PRINTER)", Results 
IF Results=1 THEN 
PRINTER IS 711 
END IF 
CONTROL 93,5;3 {Set DIR & RTS to active for CAL2000 configuration 
INTEGER Error, Value . 
REAL Pressure(1:7) 
DIM Command_modeS(1:7)(2)], PressureS(5) 
Coamand_modeS(1)="NH" 
Command_modeS$(2)="NM" 
Command_modeS (3)="NL" 
Command_modeS(4)="Z0" 
Command_moda$(5)="PL" 
Command_modeS (6)="PM" 
Command_modaS(7)="PH" 
ON ERROR GOTO Find_error 
OUTPUT 9;"IC";CHRS(13);END 'Initialize CAL2000 
WAIT 1.5 


Send_command: |! 


FOR I=1 TO 7 
OUTPUT 9;Command_modeS(I);CHRS(13);END 
WAIT 1.5 Wait time to allow calibrator stabilization 
OUTPUT 9;"RP";CHRS(13);END 
ENTER 9 USING "#,SD.5DESZZ,K"; Pressure(I); PressureS 
GOTO No_error 


Find_error: |! 


STATUS 9,10;Error 
STATUS 9,6;Valua 
Error _codeS*IVALS(Error, 2) 


PRINT "Registar 10: ";Error_codeS(9,16] 
PRINT "Register 6: "> Value, CHRS (Value) 
No_arror:|! 
IDISP "“F2 TO CONTINUE" !Steps used to determine wait time between 
! PAUSE {CALMOD steps. ZOC output connacted to the 
NEXT I 'O-scopa, use stopwatch to maasure settling 
Print _results:! Itima of de voltaga from ZOC. 
PRINT 
PRINT 
PRINT "CAL2000: Calibration modes and pressures.” . 
PRINT 
PRINT USING "2X,K,5X,K";"Mode",” Pressure (in Hg)” 
PRINT 
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660 FOR I=1 TO 7 


670 PRINT USING "3X,K,10X,3D.4D";Command_modeS(I), Pressure(1) 
680 NEXT I 
690 Finish: ! 


700 PRINTER IS CRT 
710 DISP “Press F2 to continue” 


720 PAUSE 
730 LOAD “ZOC_ MENU", 10 
740 END 


Figure A20 (cont) ZOC-14 DAS Program: CAL READ PR1 
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! Program: TABULATE_ZOC 
! Description: Tabulates data compiled from program SCAN_ZOC_04. 
DIM Data_disc1$[(23} 
DIM Data_disc238[(23] 
Input: ! 
CLEAR SCREEN 
PRINT "Program tabulates Zoc pressures and calibration data from" 
PRINT "the SCAN _ZOC_05 program.” 
INPUT "Zoc # (1,2,3), date (YMMDD), and run # of data to be reviewed:",Zoc,DateS,Run 
CLEAR SCREEN 
Data_filelS="ZC"&VALS(Zoc)&DateS&VALS (Run) 
Data_file2S="ZR"&VALS(Zoc)&DateS&VALS (Run) 
Data_disclS=Data_ f£i1le1S&": ,700,0,1” 
Data disc2S=Data file2S&":,700,0,1" 
ASSIGN @Data_pathl TO Data_disc1S 
ASSIGN @Data_path2 TO Data_disc2S 
REAL N1,N2 
STATUS @Data_path1,3;N1 ! Determine number of records 
STATUS @Data_path2,3;N2 ! Determine number of records 
ALLOCATE REAL C(N1-1,10) ! Define REAL array of records 
ALLOCATE REAL D(1:N2,32) ! Define REAL array of records 
ENTER @Data_path1;C(*) 
ENTER @Data_path2;D(*) 
INPUT "First port of calibration data to be displayed (0=Exit):",Port_o 
IF Port _o=0 THEN Finish 
INPUT "Laat port of calibration data to be displayed:”,Port_f 
INPUT “Print resulta to CRT or Printer (O=CRT 1=Printer)?", Prt 
IF Prt=0 THEN 
PRINTER IS CRT 
ELSE 
PRINTER IS 711 
END IF 
Print_reaulta: ! 
PRINT "Reduced Data Tabulation at a sample rate of";1/C(0,0);" Hz" 
PRINT 
Formatl: IMAGE K,2X,K,2X,K,2X,K 
PRINT USING Formatl;"Port”,”Sample 1","Sample 2","Sample 3” 
Format2: IMAGE 4D,2X,4D.3D,2X,4D.3D,2X,4D.3D 
I=1 'ID Data for a given sampling number 
FOR PePort_o TO Port _f 
PRINT USING Format2;P,D(I,P),D(I+1,P),D(I+2,P) 
NEXT P 
PRINT 
PRINT “Calibration Data Tabulation for Zoc#";Zoc 
PRINT 
PRINT "Pressure voltage readings:” 
Format3: IMAGE K,4X,K,6X,K,6X,K,6X,K,6X%,K,6X,K,6X,K 
PRINT USING Formats; "Port”, NH” ,”"NM”, “NL”, "ZO", PL”, ” PM", Pa” 
Format4: IMAGE 3D,X,3D.3D,X,3D.3D,X,3D.3D,%,3D.3D,X,3D.3D,X,3D.3D,X%,3D.3D 
PRINT USING Format4;0,C(0,4),C(0,5),C(0,6),C(0,7),C(0,8),C(0,9),C(0,10) 
FOR PePort o TO Port _f£ 
PRINT USING Format4;P,C(P,4),C(P,.5),C(P,6),C(P,7),C(P,8),C(P,9) CCP, 10) 
NEXT P 
PRINT 
PRINT “Calibration polynomial coefficients for Zoc#";Zoc 
Format5: IMAGE K, 8X,K,16X,K,16X,K, 16X,K 
PRINT USING FormatS5;"Port”,"A0","A1","A2","A3” 
FOR P=Port o TO Port. £ 
PRINT P;TAB(5);C(P,0);TAB(24);C(P,1);TAB(43);C(P,2);TAB(62);C(P,3) 
NEXT P 
! 
ASSIGN @Data_pathl TO * 
ASSIGN @Data_path2 TO * 
DEALLOCATE C(*) 
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660 DEALLOCATE D(*) 

670 ! 

680 INPUT “Review data or Exit (O=Exit 1=Review):",Action 
690 IF Action=0 THEN Finish 


700 PRINT 
710 GOTO Input 
720 Finish: ! 


730 PRINTER IS CRT 
740 LOAD “ZOC_MENU", 10 
750 END 


Figure A21 (cont) ZOC-14 DAS Program: TABULATE_ ZOC 
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! Program: LS PLOT 

! Descript: Plots calibration results and Least Square curve from 

! data provided by SCAN_ZOC 04 

' 

COM /Plot_labels/ REAL Xo,Xf,Yo,Yf,Dx,Dy,TitleS(60] ,X_lLabelS[(50],Y_labelS[50] 
RCI OULMUAE LAD LOS © 866 @ 6 «66s cen = eee oe 8a He See SS eee rere Sass Tere 
CLEAR SCREEN 

PRINT "Program: LS_PLOT"” 

PRINT 

PRINT "Program plots the calibration curve from Least Square coefficients” 
PRINT “and tha calibration data points contain in tha Calibration Data File.” 
PRINT 

PRINT 

PRINT "Press F2 to continua aftar calibration display is plotted” 

PRINT "Press <Shift> <Dump Graph> for printout of plot on the printer” 

INPUT "Enter Calibration Data file name:”,Data_fileS 


Loop: ! 


INPUT "Enter Port #:",P 
INPUT "Enter min range of pressure raading (in Hg):”,Xo 
INPUT "Enter max range of pressure reading (in Hg):",Xf 
INPUT "Enter min range of Zoc voltaga reading (Volts):”,Yo 
INPUT "Enter max ranga of Zoc voltage reading (Volts):”,Yf 
INPUT "Plots DUMPED to Think Jet or Laser Jet Printer: (0=TJ 1=LJ)",Dump_device 
IF Dump_device=1 THEN 
DUMP DEVICE IS 9 
ELSE 
DUMP DEVICE IS 711 
END IF 
! 
TitleS="Least Square Plot of CAL2000 Calibration (Port# "&VALS(P)&” )” 
Y_labelS="Volts” 
X_labelS="Pressure (In Hg)” 


Dx=10 !Tic marks per X-axis on plot 
Dy~12 {Tic marks per Y-axis on plot 
CLEAR SCREEN 
! 
1 Load data wert rrr rn tr enn se sserseso=- 
DIM Data_discS$[23] 
Data_discS=Data fileS&”’: ,700,0,1” {Define data transfer path 
ASSIGN @Data_path TO Data_discS 
REAL N 
STATUS @Data_path,3;N [Determine length of data file 
ALLOCATE REAL D(N-1,10) tAllocate an array to accept data 
ENTER @Data_path;D(*) [Load data into memory in array D(*) 
! 
t PLot routine cccccccccsce occ ccs ccc cece cece ccs cc cors ec esw wees ceennn=-=- 
CALL Plot !'Rountine to display graph background 
FOR X=-3 TO 3 STEP .1 {Plot calibration curve 
Fx=(D(P,0)+D(P,1)*X+D(P,2)*X°2+D(P,3)*X°3) 
PLOT Fx,X 
NEXT X 
Sc=.01 !Scale size of plotting squares 
FOR I=4 TO 10 {Plot Squares around data points 
PLOY OCG. 1) {OCP 1), -2 !Move pen to data point position 
CALL Square(Xo,Xf, Yo, Yf,Sc) !Subrountine to plot squares 
NEXT I 


ASSIGN @Data_path TO * 

! 

PAUSE 

CLEAR SCREEN 

INPUT "Graph anothar calibration plot: ( O=No 1l=Yes )",Again 
DEALLOCATE D(*) 

IF Again=1 THEN Loop 

LOAD "ZOC_MENU", 10 

END 


Figure A22 ZOC-14 DAS Program: LS PLOT 
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SUB Plot 
! Subroutine to display plot screen, less the plots of any curves 
! for the specified variables in the COM /Plot_labels/ line. 

COM /Plot_labels/ Xo,xXf,Yo,Yf,Dx,Dy,TitleS,X_ labelS,Y labelS 


CLEAR SCREEN 

KEY LABELS OFF 
GINIT 
X_range*Xf-Xo 
Y_range*Yf-Yo 
LORG 6 

MOVE 100*RATIO/2,100 
CSIZE. 3 

LABEL TitleS 

MOVE 100*RATIO/2,0 
LORG 4 

LABEL X_labelS 
DEG 

LDIR 90 

LORG 6 

MOVE 0,50 

LABEL Y_labelS 
LDIR 0 

LORG 2 

VIEWPORT 10,90*RATIO,10,90 
FRAME 

WINDOW Xo ,Xf, Yo, Yf 


AXES X_range/Dx,Y_range/Dy,Xo, Yo 
AXES X_range/Dx,Y_range/Dy,Xf,Yf 


!Initialize graph routine 

'Length of X-axis 

!Length of Y-axis 

'Character ref pt:top center 

!Move cursor to screen loc for labels 
{Sizes labeling 

{Plot title 

{Move cursor to bottom center screen 
{Character ref pt:bottom center 
{X-axis label 

{Desig degrees for LDIR 

{Sets Y-axis label on end 


{Y-axis Label 

'Reset label to horizontal orientation. 

!Chr ref pt: left center 

{Sets graph screen size 

{Box around VIEWPORT 

{Set axis ‘lengths in VIEWPORT 
{Axes intersect at lower left 
!Axes intersect at upper right 


GRID X_range/Dx,Y_range/Dy,Xo0,Yo,Dx,Dy, .001 


CLIP OFF 
CSIZE 3.0,.4 
LORG 6 


FOR I=Xo TO Xf STEP X_range/Dx 


MOVE I, Yo-r.01*Y range 
LABEL USING "#,K";I 
NEXT I 
LORG 8 


FOR [=Yo TO Yf STEP Y_range/Dy 


MOVE Xo-.01*X_range,I 
LABEL USING "#,K";I 
NEXT I 
CLIP ON 


SUBEND 

SUB Square(Xo,Xf, Yo, Yf,Sc) 
{Subroutine to plot squares around the local origin designated 
tby the PLOT statement. 


Xd=Sc*(Xf£-Xo) 
Yd*Sc*(Yf-Yo)*RATIO 
RPLOI -Xd Yd -Z2 
RPLOT Ad) Y¥di-2 
RPLOT Xd,-Yd,-1 
RELOT -Xd; -Y¥d_ sl 
RPLOT -Xd,Yd,2 


SUBEND 


{So labels can print outside VIEWPORT 


{Axes label size 
{Number X-axis 


‘Number Y-axis 


!{X displacement for RPLOT 
!Y displacement for RPLOT 


DAS Program: LS_PLOT 
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10 !Program: ZOC_MENU 
20 ‘Description: Menu for utilization of the Zoc-14 and CALSYS 2000. 
30 CLEAR SCREEN 

40 CONTROL CRT,5;4 

50 KEY LABELS ON 

60 ON KEY 1 LABEL "SCAN 1-3Z0CS" GOTO Scan_1 


70 ON KEY 2 LABEL "READ ZOCDATA" GOTO Read_z 

80 ON KEY 3 LABEL "PLOT ZOCDATA" GOTO Plot 

90 ON KEY 4 LABEL "READ CALSYS20" GOTO Calsys 
100 ON KEY 5 LABEL "“TABULATECAL DATA “ GOTO Tab_data 
110 ON KEY 6 LABEL "PLOT CALDATA” GOTO Plot _cal 

120 ON KEY 7 LABEL "HP6944A MENU" GOTO Main 

130 ON KEY 8 LABEL “EXIT MENU" GOTO Exit 

140 ! 


150 PRINT "Zoc Electronic Pressure Module Operation Menu” 
160 PRINT 


170 PRINT “Item: Select Function Key” 
180 PRINT 

190 PRINT " Scan 1-3 20C-14 Modules (32 ports ea) ri” 
200 PRINT " Read reduced data from Z0C-14 module F2" 
210 PRINT " Plot reduced data from Z0C-14 module F3" 
220 PRINT " Read CALSYS 2000 calibration pressures F4" 
230 PRINT " Read tabulated calibration data F5" 
240 PRINT " Plot Calibration data F6" 
250 PRINT 

260 PRINT " HP6944A Main Menu F7" 
270 PRINT " Exit Menu Fg" 
280 ! 


290 Hold: ! 

300 GOTO Hold 

310 Scan_1: ! 

320 CLEAR SCREEN 

330 PRINT "Loading SCAN _ZOc 05” 

340 LOAD BIN “/WORKSTATIONS/BINS.1/TRANS"” 
350 LOAD BIN "/WORKSTATIONS/BINS.1/SERIAL” 
360 LOAD "SCAN _ZOC_05",10 

a7O,Plot: ! 

380 LOAD BIN "/WORKSTATIONS/BINS.1/GRAPHX" 
390 LOAD "PLOT_DATA",10 

400 Read z: ! 

410 LOAD “READ ZOc",10 

420 Calsys: |! 

430 LOAD BIN "/WORKSTATIONS/BINS.1/SERIAL” 
440 LOAD "CAL_READ PR1",10 

450 Tab data: ! 

460 LOAD “TABULATE_z0c”,10 

470 Plot_cal: ! 

480 LOAD BIN "°/WORKSTATIONS/ BINS. 1/GRAPHX” 
490 LOAD "LS_PLOT”,10 

500 Main: ! 

510 LOAD "HP6944A_MENU",10 

520 Exit:CLEAR SCREEN 

530 END 


Figure A23 ZOC-14 DAS Program: ZOC_MENU 
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APPENDIX B. ZOC-14 PROGRAM DEVELOPMENT CHRONOLOGY 


The following prargraphs provide a chronological summary 
of the SCAN ZOC program development using the HP14753A CAT 
Programs. First, the HP6944A manuals required the hardware 
configuration of the I/O cards be determined. Second, review 
of the interface requirements to operate the ZOC-14 units 
identified the binary ZOC address codes to set. The HP69730A 
Relay Output Card then provided the closure contacts required 
to set the required address codes*®. The HP69759A A/D Card 
provided the signal conversion process to read the Z0C-14. 
I/O card edge connectors are fabricated from hardware supplied 
with the I/O cards to provide the interface between the cards 
and the Z0c-14. The program "SCAN _ZOC_01", Figure Bl, 
provides control and reads data voltage values from the ZOc- 
14. SCAN_ZOC_01 was the simplest in the series of development 
programs. 

"SCAN ZOC_02" , Figure B2, integrated new programming 
features and hardware into a complete data acquisition program 


for utilizing one ZOC-14. The significant features were, 


# segmenting the main program into "blocks" of routines 


# utilizing arrays for data processing 
28 Refer to Ref. 26 for details on the Relay Output Card. 
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@ hardware integration of the CALSYS2000 
@ integration of the Buffer and Timer Functions 


@ data reduction using Least Squares calibration curve 
Pee Lng 


@ data storage to the hard drive using BUFFER arrays. 


This program did not utilize the Zero Operate and Calibrate 
method. Calibration data were first collected and stored in 
a BUFFER array. Raw pressure data were then collected and 
retained in the HP69791A Memory Card. Calibration data were 
reduced using the Least Squares routine. The calibration data 
were then transferred to the hard drive calibration data file. 
Raw pressure data were extracted from the memory card, 
reduced, and stored on the hard drive reduced-pressure data 
file. 

BUFFER arrays were used for the high speed data handling 
Capabilities. A data transfer was initiated with a buffer and 
the computer executed the next line without waiting for the 
transfer to complete. This process allowed data transfer 
while the computer was performing the next command, thereby 
Minimizing processing time. 

SCAN _ZOC_02 did not control the CALSYS2000. Control was 
provided by a seperate 386 desk top computer with a modem 
connected to the CALSYS2000 through the computer's RS-232C 
port. Interfacing the HP9000 with the CALSYS2000 required 


resolution of RS-232C data stream handling techniques. 
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"SCAN ZOC 03", Figure B3, introduced new features. Over 
SCAN ZOC 02, the new features were; 
# the use of subroutines and the CASE statements to provide 
multiple ZOC-14 interfacing into the data acquisition 
system. 
# incorporating full control of the CALSYS2000 using HP9000 
commands. 
The techniques to control the CALSYS2000 are discussed in 
Section Liab 

"SCAN ZOC 04", Figure B4, incorporated the following 
additional features, 

@ incorporation of a second ZOC-14 into the process to 
validate multiple ZOC-14 operation 

# command lines to handle a second CALMOD 2000 


@ incorporation of the Zero Operate and Calibrate principle. 


The command line to operate a second CALMOD did not interfere 
with the current CALSYS2000 operation since this command used 
an address character "2" and the installed CALMOD only 
responded to address character "1". 

Integration of the "Zero Operate and Calibrate" principle 
required collecting measured pressure data followed by 
calibration data. This process posed a memory ananaee problem 
for multiple ZOCs. The problem was rectified by transferring 
the raw data to a hard drive data file for recall off-line. 


Three advantages were associated with this technique: 
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1. Programming simplification, by not having to identify raw 
and calibration data separately on the memory card. 


2. Additional data collection capacity was made available by 
sequential utilization of the memory card. 


3. Multiple data and calibration runs could be conducted 
which were limited only by the hard drive storage 
capacity. 

Data reduction could be accomplished at any later time, 
providing considerable flexibility. It is to be noted, 
however, that sufficient space on the hard drive was required 
to be set aside to store the reduced data. The user must 
manage hard drive space when acquiring large quantities of 
data. Transfer of raw and calibration data to the floppy disk 
is one solution. This would require the user to generate a 
transfer program similar to the FILE_XFER program, Figure D17, 
on the /UTILity directory. 

The Scan Frequency input (1-100,000 Hz) for the 
SCAN ZOC_02, SCAN_ZOC_03, and SCAN _Z20C_04 programs was 
improperly implemented. The Timer Function required that a 
specified "Period" be input to define the length of the "step" 
or logic-high portion of the square wave trigger output’. 
The programs previous to SCAN ZOC_05 used the reciprocal of 
the Scan Frequency as the Period to be input. This resulted 
in square wave periods twice the intended value. SCAN_ZOC_05 


correctly adjusts the Scan Frequency input used to define the 


9 ~—~Ref. 15 defines the input variables for the Timer 
Function. 
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Timer Function Period value, changing the input frequency 
range to "1-50,000 Hz". In SCAN ZOC 05 the Scan Frequenc, 
input value is first inverted, then the resulting period is 
divided by two to obtain the Timer Period value. In the first 
three programs this division by two was omitted and thus the 
programs gave a two-fold decrease in the data sampling rate. 
This error was discovered during the development of the 
PLOT DATA program, Figure A20. The program plots reduced 
pressure data versus time for a specified ZOC port number. 
The detected error was detected when the plot showed only half 
the number of data points for the calculated time span. That 
SCAN _ZOC_05 uses the correct Timer Period value was verified 


by the PLOT DATA progran. 
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10 ! Program: SCAN_ZOC O01 

20 ! Description: Application program to operate HP6944A collecting voltage 
30 ! readings from a ZOC using HP6944A cards. 

40 ! Program provides voltage reading from a single ZOC for a 

50 ! specified port number 1-32. 

60 ! This program was primarily an instruction aid to learn about 
70 ! HP6944A operation and ZOC operation. 

80 ! 

90 ! Hardware: HP6944A Multi-processor 

100 |! -(1) Relay Output Card (HP69730A) 

iio. (|! -(1) 500 kHz A/D Cerd (HP69759A) 

120 ! (1) ZOC-14 32 port Electronic Pressure Scanning Module 

130 =! 

140 ! Notea: 1. JZOC address driven by Relay Output card connecting ZOC’s 

150 ! A0O-A4 leads to the Relay Output card’s edge connector: 

160 ! 

170 ! ZOC Relay Contact 

180 ! AO A 

190 ! Al Cc 

200 ! A2 E 

210 ! A3 H 

220 ! A4 K 

230 ! 

240 ! Reley Contacts 1,3,5,7, & 9 were connected together and 

250 ! tied into ZOC’s ground wire to complete the address circuit. 
260 ! (Ref ZOC-14 Instruction Manuel dwg 8329 sht 3 of 3) 

270 1! 2. ZOC’s Output Plus lead wes connected to A/D edge cerd 

280 ! connection W, and ZOC Output Common connected to A/D Y 

290 ! (Ref HP69759A Manuel pg 2-3, fig. 2-1) 

300 ! 3. ZOC powered by OA-2 Op Amp Designer internel power supply. 
Sic, | 4. CALSYS2000 sets the different ZOC modes through e pneumatic 
320 ! switch metrix. CALSYS2000 defaults to the Zero Operate mode 
330 ! when energized providing CTL2 (Px CTL) control pressure to the 
331 ! ZOC, and ellow senor pressure readings of any of the 32 ports. 
340 =! 5. A by-pess velve is instelled between CALSYS2000 PSC and 

350 =! CALMOD to minimized Nitrogen usage by closing the valve. 

360 ! CALMOD is not operative until external ASCII commands are 

s70y ! provided via RS_232C cable to the CALMOD following CALSYS2000 
380 =! energizing. 

390 =! 

400 ! LOADSUB ALL FROM "CONFIGURE" !These two commands must be initated 
410 ! LOADSUB ALL FROM "LIBRARYS.1” !to append required SUB and CSUB 
420 ! troutines to the end of this program 
430 COM /Issscom/ INTEGER X(1:1106) 

440 COM /Isss_heep/ Isss_heep(1000) 

450 COM /Names/ Zoc_address,Zoc_pressure !Identify: Reley Output, A/D 

460 Configure("Ask_me",”"ZOC CONFIG 01") !Load Configuration File, and 

470 ! !request for file review/alteration. 
480 System_init !Initialize Relay Output and A/D 
490 ! 

Jom! -----= BODY OF AG eCLIGATION , PROG@RaMp eo @2 32 cease a ces esse smn e as ssc == 
510 ! 

520 REAL Port_reading, Port_req 

530 INPUT “Enter Port # (1-32): ", Port_req 'Input port # 

540 Output(Zoc_address,32-Port_req) !Select port # by Relay Output 

550 Input(Zoc_pressure, Port _reading) !Read ZOC voltage velue from A/D 
560 ! 

570 PRINT "Port #";Port_req;" reading: "“;Port_reading 

580 ! 

590 SLOP 

Some! ---S=-<=> CRO GG Gee er ROG AM © eee aaa eae a aa SaaS a eo eee eses- == 
610 ! 

620 END 
Figure Bl Development Program: SCAN _Z0C_01 
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Program: SCAN ZOC_02 
Description: Application program to operate HP6944A collecting pressure 
readings from one ZOC-14 32 port module using the CAL2000 
to provide calibration data, reduce raw pressure data and 
e store data to the hard drive. 
Hardware: HP6944A Multi-processor 
-500 kHz A/D Card (HP69759A) 
-High Speed Memory Card (HP69791A) 
-Timer/Pacer Card (HP69736A) 
-Counter Card (HP69775A) 
CAL2000 Calibration Module 
ZOC-14 32 port Electronic Pressure Scanning Module 
Note: This program utilizes only one (1) Zoe Module. 


Buffer Memory: 65536 16-bit data words in HP69791A 
Timer: Maximum 32676 counts for one HP69775A 


Cee Soe tae a te ee ee ee, ee | 


COM /Issscom/ INTEGER X(1:1106) 

COM /Isss_heap/ Isss_heap(1000) 

COM /Names/ Relay,Buffer,Adcl,Timer 
Configure("Menu_off","ZOC_ CONFIG 02") 


!Configure("Ask_me”,"ZOC CONFIG 02") 
! 


Body: {| ------ BODY OF PROGRAM -~----~----------------------------------- 


Input variables: !----- INITIAL PARAMETERS ~~ eer 06 soos e ee ~~ See = 


PRINT “Program:" 

PRINT " - Seans a single Zoc-14 module with 32 pressure sensing ports.” 

PRINT “ - Stores reduced data on the hard drive (:,700,0,1)." 

PRINT ® <- CAL2000 Calibration Module used for the reference pressure standard." 
PRINT “ - Raw pressure data reduced using calibration data from CAL2000" 

PRINT " and data from Zocs in the calibration mode.” 


PRINT 
PRINT “Input variables: Scan frequency (1-100,000 Hz)" 
PRINT “ Samples per Port (1-1021)" 


! 

! Max speed of HP system is Period=0.000002 sec. or 500 kf&z. 
! 

PRINT 

INPUT "Enter data rate (1-100kHz):",Hz 

INPUT “Number of samples per port (1-1021): ",Sample_number 


Period=1/Hz 
PRINT 
PRINT "Data acquisition rate: ";1/Period;" Hz" 


PRINT “Number of samples per port: ",Sample_number 
PRINT “Total raw data acquisition time: ",Period*Sample_ number*32;" sec.” 
' 


Cal_initial: !----- CALIBRATION SET-UP -~----~----7 7-2-2 r nnn n nnn nnn 


t 

REAL Cal(1:1120) { Calibration collection array for 
! 5 samples per port, 7 calibration 
! runs using CAL2000. 

REAL Zoc_cal(32,10) ! Calibration data array. Format: 

Zoc_cal(0,0)=Period 

Zoc_cal(0,1)=Sample_number 


For ports i=1 to 32 
Row 0: 00 0 0 NH NM NL ZO PL PM PH (pressure Hg.) 
Row i: AQ Al A2 A3 NH NM NL ZO PL PM PH (LS coef,press volts) 
LS coef are Least Squares curve fit coef for third order polynomial. 


om (ee comm comm Cae cae 


Calibrata™=1l ! Set calibration run 

Count=160 !' Set count to collect calibration data 
Index=1 ' Set index for cal data collection 
PRINT 
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";Zoc_cal(0, Indext+3) 


ee ee ee ee ee ee ee a ee ee ee 


660 PRINT “Ensure CAL2000 is on-line and initialized" 

670 PRINT 

680 PRINT "Set CAL2000 calibrate mode (sequence: NH,NM,NL, ZO, PL, PM, PH)” 
690 PRINT 

poogCal routiner losses sss9cccresesecros- 

710 INPUT “Read RP value, and enter:",Zoc _cal(0,Indext3) 

720 PRINT "Secondary Pressure Standard: 

730 ! 

PD SCM ZOCS ae = = <<< = =< 


750 !Note: Zoc address driven by Counter Card binary output at edge connection. 
760 ! Calibration routine collects 5 samples per Zoc port. 
770 { Raw data collection follows calibration collection routine. 


780 ! 


790 
800 
810 
820 
830 
840 
850 
860 


870 ! 


Wait _time=INT(Count*Period)+10 ! 
Init (Timer) ' 
Set_timeout (Timer ,Wait_time) ! 
Set_count (Timer ,Count) : 
Set_period(Timer, Period) ! 
Init (Buffer) : 
Start (Timer) ! 

! 


Wait _for(Timer) 


Set Timer wait time to +10 secs. 
Initialize Timer system 

Set Wait_for period of xx secs. 

Set Count number into Timer 

Set Timer pulse length in secs. 
Initialize Buffer for data storage 
Start data sample collection 

Data samples stored in Memory System 


880 ! Collect calibration data from Memory System 


890 
900 
910 
920 


930 ! 


IF Calibrate=0 THEN Reduce cal _ dat 


Input_rblock (Buffer ,Cal(*), 160, (Index-1)*160)! Collect cal run data 


Index=Indext+1 
IF Index<8 THEN Cal _ routine 


940 ! Collect raw data initialization 


950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


1060 ! 


CLEAR SCREEN 


{ Loop cal data collection runs 


PRINT “Reset Zoc mode to read pressure data” 


DISP “Press F2 to continue” 
PAUSE 
CLEAR SCREEN 


PRINT "Collecting raw pressure data. 


Calibrate=0 
Count*Sample_number*32 


GOTO Scan_zocs 


1070 ! End of Zoc scan routine 
1080 Reduce_cal_dat: !----- REDUCE “CALIGRATION, DALLA, (= —————-=9<4<s<=42<<S+--<=<< 
1090 {! Routine to reduce Cal(*) into Zoc_cal(I,J) 


1100 ! 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 ! 


" { Set parameters to collect raw data 


Set Count as function of sample number 
and number of port readings (32) on 
Zoe for raw data collection. 

Raw data run. 


REAL A(3,3),B(3),C(3),Sum_x(6),A_inv(3,3) ! Least Square reduction arrays 


PRINT 
PRINT "Reducing calibration data." 
FOR J#4 TO 10 ! 
FOR I=1 TO 32 7 
FOR K#0 TO 4 ! 


Cal runs: NH,NM,NL, ZO, PL, PM, PH 
Zoc ports per calibration run 
Number of samples per run 


Zoc_cal(I,J)=Zoc_cal(I,J)+Cal( I+K*32+(J-4)*160) 


NEXT K 
Zoc_cal(I,J)*Zoc_cal(I,J)/5 ! 
NEXT I 
NEXT J 


1230 Least squares:! 
1240 ! Calibration data reduction using Least Squares Polynominal fitting. 


1250 ! 
1260 
1270 ! 
1280 
1290 
1300 ! 


FOR K#=1 TO 32 ! Loop 


MAT C= (0) 
MAT Sum x= (0) 


Average of 5 samples per port I 


for each port 
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FOR J=1 TO 6 ! Routine to reduce individual port cal 
FOR I=4 TO 10 ! data into elementa to a power xj 
Sum_x(J)=Sum_x(J)+Zoc_cal(K,1)*J 
NEXT I 
NEXT J 
! 
FOR I#0 TO 3 ! Derive A array 
FOR J=0 TO 3 
A(I,J)*Sum_x(I+J) 
NEXT J 
NEXT I 
A(0,0)=7 
! 
FOR J=0 TO 3 ! Deriva C array 
FOR I=4 TO 10 
C(J)mC(J)+Zoc_cal(K,I)°J*Zoc_cal(0,I) 
NEXT I 
NEXT J 
! 
MAT A_inv= INV(A) 
MAT B= A_inv*C ! B array is matrix of Least Squara 
! coafficients a0,al,a2,& a3 for polynomial 
! aquation fitting calibration data for a 
! spacified port 
! 
Zoc_cal(K,0)=B(0) ! Collect Laast Squara coafficients 
Zoc_cal(K,1)=B(1) 
Zoc_cal(K,2)=B(2) 
Zoc_cal(K,3)=B(3) 
! 
NEXT K 
! . 
Data transfer: !----- TRANSFER DATA FM MEMORY SYSTEM TO HARD DISC ------~---- 
! Routine transfers data from Memory System to hard drive via buffar blocks 
! 
! Transfar calibration data and coafficients to hard drive 
DIM Data_disc1S[(23) ! Define string for data file name 
Data_filelS="ZOC_CAL” 
Data_disciS$=Data_filalS&":,700,0,1" 
PURGE Data _disci1S 
CREATE BDAT Data_disc1S$,33,8*11 ! Creata BDAT file of 11*8 byte 
ASSIGN @Data_pathl TO Data_discl1S ! Aasign path to hard drive 
OUTPUT @Data_pathl;Zoc_cal(*) ! x33 racords and store on hard driva 
ASSIGN @Data_path2 TO * ! Close buffar path 
! 
! Raducing raw data and transferring data to hard driva 
PRINT 
PRINT “Reducing raw pressure data and transfarring data to hard drive.” 
INTEGER Data_int(0:32) ! Extracted INTEGER raw data 
REAL Data_raw(0:32) ! Translated REAL raw data 
REAL Data_rad(0:32) ! REAL reduced data 
REAL Data_buffer2(0:32) BUFFER ! Raw data transfer buffer 
REAL Data_buffer3(0:32) BUFFER ! Reduced data transfer buffer 
DIM Data_disc25S[(23] ! Define string for data file name 
DIM Data_disc3$[(23] 
REAL Nd 
Data_file2S="ZOC_RAW" 
Data_fila3S="ZOC_REDUCE" 
Data_disc2S=Data_file2S&": ,700,0, 1" 
Data_disc3S=Data_file3S&": ,700,0,1" 
PURGE Data_disc238 
PURGE Data_disc3S8 
CREATE BDAT Data_disc2S, 10, 8*33 ! Create BDAT file of 33*8 byte records 
! and initial 10 records 
! Each record contains one scan of the 
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1960 ! 32 port Zoc in REAL pressure values 
1970 ! corrected by CAL2000 values 

1980 CREATE BDAT Data_disc3$,10,8*33 

1990 ASSIGN @Data_path2 TO Data_disc2$3 ! Assign path to hard drive 

2000 ASSIGN @Data path3 TO Data _disc33$ 


2010 Count_inblock=32 ! Number of samples per block transfered 
2020 Block_number=Count/Count_inblock ! Number of transfer blocks 

2030 | 

2040 FOR Block=1 TO Sample _number { Loop routine to transfer data 


2050 ASSIGN @Buffer_path2 TO BUFFER Data buffer2(*);FORMAT OFF 
2060 ASSIGN @Buffer_path3 TO BUFFER Data_buffer3(*);FORMAT OFF 
2070 Input_iblock(Buffer,Data_int(*),Count_inblock,1)! Load data samples to 


2080 ! buffer in blocks 
2090 Translate(Adc1,Data_int(*),Data_raw(*))! Load INTEGER data into 
2100 ! REAL data buffer array 

2110 ! 

2120 ! Routine to reduce raw data using polynomial: 

2130 ! 

2140 |! Data_reduce = a0 + al*x + a2*x°2 + a3*x'3 

2150 ! 

2160 ! where a0,al,a2, & a3 are Least Square coefficients, and x is 

2170 ! the individual port raw data value. 

2180 ! 

2190 FOR K=1 TO 32 

2200 Data_red(K)=Zoc_cal(K,0)+Zoc_cal(K,1)*Data_raw(K)+Zoc_cal(K,2)*Data_raw(K)“2+Zoc_cal(K,3)*Data_raw(K)°3 
2210 NEXT K 

2220 ! 

2230 Data_raw(0)=Period*(Block~1) ! Store raw data sample time 
2240 Data_red(0)=Period*(Block-1) ! Store reduce data sample time 
2250 ! 

2260 MAT Data_buffer2= Data_raw ! Transfer raw & red data to buffer 
2270 MAT Datea_buffer3= Data red 

2280 |! 


2290 CONTROL @Buffer_path2, 4; (Count_inblockt+1)*8! Cloae REAL buffer when full 
2300 CONTROL @Buffer_path3, 4; (Count_inblock+1)*86 

2310 TRANSFER @Buffar_path2 TO @Data_path2! Transfer data to hard drive 

2320 TRANSFER 6Buffer_path3 TO @Data_path3 

2330 ASSIGN @Buffer_path2 TO * 

2340 ASSIGN @6Buffer_path3 TO * 

2350 NEXT Block 


2360 ! 

2370 STATUS @Data path3,3;Nd ! Datarmina data file length 
2380 ASSIGN @Data_path2 TO * ! Close buffer path 

2390 ASSIGN @Data path3 TO * 

2400 |! 


2410- CLEAR SCREEN 
2420 PRINT “Calibration data file: “;Data_ filelS 
2430 PRINT “Raw data file: “;Data_file2$ 


2440 PRINT "Reduced data: ";Data f1i1e3$ 
2450 PRINT “Number of records (scans) in “;Data file3S;" is: ";Nd 
2460 PRINT 


2470 PRINT "Use READ _ZOC to read data from ";Data_file2S;" and “;Data_file3sS 
2480 PRINT “Use TABULATE_ZOC to raad calibration data from “;Data_filelS 
2490 |! 

2500 Finish:! 

2510 DISP “Press F2 to continue.” 


2520 PAUSE 

2530 LOAD “HP6944A MENU”, 10 

2e50 End _body:! --<--~-~---~--~ Bg IMG) BeL 3 2 a naa 
z2o20 ! 

2560 END 
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' Program: SCAN ZOC 03 

! Description: Application program to operate HP6944A collecting pressure 
! readings from 1-3 ZOC-14 32 port modules using the CAL2000 
! to provide calibration data, reduce raw pressure data and 

! store data to the hard drive. 

! Hardware: HP6944A Multi-processors 

! -500 kHz A/D Cards (HP69759A) 

! -High Speed Memory Cards (HP69791A) 

t -Timer/Pacer Card (HP69736A) 

! -Counter Card (HP69775A) 

! CAL2000 Calibration Module 

! Z0C-14 32 port Electronic Pressure Scanning Modules 

! Notes: 1. This program utilizes up to thraa (3) Zoc Modules storing data 
! of each Zoc into a saparate buffar Mamory System (HP89791A). 

! 2. COM /Names lina and BDAT file ZOC_CONFIG_03 must match for this 
! program to oparate. 

' 
! 
! 
! 
! 


Buffer Memory: 65536 16-bit data words in HP69791A per system 
Timer: Maximum 32676 counts for one HP69775A 
Max speed of HP system is Period=0.000002 sec. or 500 kHz. 


COM /Issscom/ INTEGER X(1:1106) 

COM /Isss_heap/ Isss_heap(1000) 

COM /Names/ Buffer,Adcl1,Timer 
Configure("Menu_off","ZOC_ CONFIG 03") 
!Configure("Ask_me","ZO0C CONFIG 03") 

! 


Input: !----- INPUT VARIABLES ---------------------------------------------- 


PRINT "Program: SCAN _ZOC_03” 

PRINT " - Scans 1-3 Zoc-14 Modules (32 pressure sensing ports aach).” 

PRINT " Selected number of Zocs datermines the size of storad data filas." 
PRINT " - CAL2000 Calibration Module used for the refarance pressura standard.” 
PRINT “ - Raw pressure data reduced using calibration data from CAL2000" 

PRINT ” and deta from Zocs in the calibration mode.” 

PRINT " - Stores reduced data on the hard drive (:,700,0,1)." 


PRINT ” - Program designed to oparata three (3) Memory-A/D Cards simultaneously." 
PRINT 

PRINT “Input variables: Scan frequency (1-100,000 Hz)" 

PRINT " Samples per Port (1-1021)" 

PRINT ” Numbar of Zocs to be used" 

PRINT ” Calibration/Raduced data file name ID" 


! 
! COM assigns calibration data array for 3x32 Zoc ports (96 total) 
COM /Zoc_dat/ REAL Zoc_cal(96,10) BUFFER 
COM /Stats/ REAL Pariod,Sampla_number 
PRINT 
INPUT "Entar data rata (1-100kHz):",Hz 
INPUT “Number of samples per port (1-1021): ",Sample number 
INPUT "Number of Zoc’s connected to. Multi-programer",Zoc_number 
Period=1/Hz 
Wait for=1.5 ! Wait time for CAL2000 stabilization 
PRINT 
PRINT “Data acquisition rate:";TAB(50);Hz;" Hz" 
PRINT "“Numbar of samplas per port:";TAB(50);Sampla_ number 
PRINT “Numbar of Zocs to be scanned:";TAB(50);Zoc_number 
PRINT “Total number of ports to be scanned:";TAB(50);Zoc_number*32 
PRINT “Total calibration data acquisition time:”;TAB(50); Period*5*32+(9*Wait_for);" sec.” 
PRINT "Total raw data acquisition time:";TAB(50);Period*Sample number’32;" sec.” 
! 
! Calibration data array: Zoc_cal(96,10) 
! Format: 
! For ports i=1 to 96 
! Row 0, column 0: Period 
! Row 0, columm 1: Sample number 
! Row 0, columm 2: Number of Zocs being used 
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660 ! Row 0: ss |ss«éCC.s«SONE' NM NE ZO PL FM PH «O(pressure 4g. ) 

670 ! Row i: AO Al A2 A3 NH NM NL ZO PL PM PH (LS coef,press volts) 
680 |! LS coef are Least Squares curve fit coef for third order polynomial. 
690 ! 


700 Zoc_cal(0,0)=Period 

710 = Zoc_cal(0,1)=Sample_number 

720 = Zoc_cal(0,2)=Zoc_number 

730 ! 

740 #=PRINT 

750 PRINT "Ensure CAL2000 is on-line, calibration pressure source at 90 psi,” 
760 PRINT “and calibrator pressure cut-off valve is open (on back of CAL2000)” 
770 DISP "Press F2 to start data aquisition” 


780 PAUSE 

790 «(| 

poupinitial cal: !-------- CALIBRATION cou hal be === ——< 8 888 -===5 9S == s====<5=== 
810 ! 


820 CLEAR SCREEN 
830 PRINT "Collecting calibration data.” 
840 REAL Cal1(1120),Cal2(1120),Cal3(1120)! Calibration data array 


850 REAL Cal(1120) ! SUB prog call data array 
860 Count#32*5 { Set count to collect calibration data 
870 CONTROL 9,5;3 ! Set OTR & RTS to active for CAL2000 


880 DIM Command_modeS(1:7) [2] 
890 Command_modeS(1)="NH” 
900 Command_modeS(2)="NM" 
910 Command_modeS(3)="NL" 
920 Command_modeS(4)=#"Z0" 
930 Command_modeS(5)="PL" 


940 Command_modeS(6)="PM" : 
950 Command_modeS(7)="PH" 

960 OUTPUT 9;"IC";CHRS(13);END ! Initializes CAL2000 

970 WAIT Wait for ! Allows CAL2000 pressure to stabilize 
980 ! 

Supmcoltlect cel dat: !---- COLLECT RAW CALIBRATION DATA -<-<---------------------- 
1000 ! 


1010 {| Collect raw calibration data for each CAL2000 setting 
1020 FOR Index=1 TO 7 

1030 CALL Cal2000 (Command_modeS(Index),Index,Wait for) 
1040 CALL Scan_zocs(Count, Period) 

1050 FOR Zoc_case=1 TO Zoc_number 


1060 SELECT Zoc_case 

1070 CASE 1 

1080 CALL Zoc_dat_cal(Buffer,Cali(*), Index) 
1090 CASE 2 

1100 CALL Zoc_dat_cal(Buffer2,Cal2(*), Index) 
1110 CASE 3 

1120 CALL Zoc_dat_cal(Buffer3,Cal3(*), Index) 
1130 END SELECT 


1140 NEXT Zoc_case 

1150 NEXT Index 

1160 |! 

1170 =! Adjust Calibration pressure sign to account for CAL2000/Zoc method 
1180 =! of setting negative calibration pressures. 


1190 Zoc_cal(0,4)=-Zoc_cal(0,4) ! NH adjustment 
1200 Zoc_cal(0,5)=-Zoc_cal(0,5) ! NM adjustment 
1210 Zoc_cal(0,6)=-Zoc_cal(0,6) ! NL adjustment 
1220 ! 


1230 CLEAR SCREEN 

1240 PRINT "Calibration data collection complete.” 

1250 PRINT 

1260 PRINT "*** Secure Calibrator pressure valve to conserve Nitrogen ***" 
1270 PRINT 

1280 PRINT "CAL2000 Calibration modes and pressures (in Hg):” 

1290 PRINT TAB(5);"NH";TAB(15);Zoc_cal(0,4) 

1300 PRINT TAB(5);"“NM";TAB(15);Zoc_cal(0, 5) 
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PRINT TAB(5);"NL";TAB(15);Zoc_cal(0,6) 
PRINT TAB(5);"Z0";TAB(15);Zoc_cal(0,7) 
PRINT TAB(5); "PL"; TAB(15);Zoc_cal(0, 8) 
PRINT TAB(5); "PM"; TAB(15); Zoc_cal(0,9) 
PRINT TAB(5); "PH"; TAB(15);Zoc_cal(0,10) 
! 


Collect raw dat: !--= COLLECT RAW PRESSURE DATA --<<9 932999998883 ===~ ~~ es 


PRINT 

PRINT "Collecting raw pressure data." ! Set parameters to collect raw data 
OUTPUT 9;"IC";CHRS(13);END ! Reinitialize CAL2000 

WAIT Wait for 


Count=Sample_number*32 ! Set Count as function of sample number 
{ and number of port readings (32) on 
! Zoc for raw data collection. 
CALL Scan_zoca(Count, Pariod) ! Collect raw data into Memory System 
PRINT 
PRINT “Raw data collection complete.” 


Raduca_cal_dat: !----- REDUCE CALIBRALION DATA 222 c re oon a ee 


! Routine to raduca Cal_(*) into Zoc_cal(I,J) 
! 
PRINT 
PRINT “Reducing calibration data.” 
FOR Zoc_casa@1 TO Zoc_number 
SELECT Zoc_case 
CASE 1 
CALL Zoc_dat_red(Call(*),1) 
CASE 2 
CALL Zoc_dat_red(Cai2(*) ,2) 
CASE 3 
CALL Zoc_dat_red(Cal3(*),3) 
END SELECT 
NEXT Zoc_case 
! 


Data_transfer: !----- TRANSFER DATA FM MEMORY SYSTEM TO HARD DISC ---------- 


! Routine transfers data from Mamory System to hard driva via buffar blocks 
! 

CLEAR SCREEN 

! Transfer calibration data and coafficiants to hard driva 

ON ERROR GOSUB Purga fila 

INPUT “Entar Calibration and Raducad Data fila nama ID (11 char max):",File_idS 
Hard_driveS=":,700,0,1" 

REAL Nd,Nr 

! 

!---Transfer calibration data to hard drive 

PRINT “Transfarring calibration data to the hard driva." 


DIM Data _disc13$[(23] ! Defina string for data file name 
Data_filelS="ZC_"“&Fila ids ! Zoc calibration file name 

File nameS=Data_filel13 ! Used for file purging if required 
Data_disclS=Data_fileiS&Hard driveS 

CREATE BDAT Data_disci1S,33,8*11 { Create BDAT file of 11*8 byte 


ASSIGN @Data_pathl TO Data _disc1S ! Assign path to hard drive 
ASSIGN @Buffer_pathl TO BUFFER Zoc_cal(*) !Assign buffer path 
CONTROL @Buffer path1,4;8*11*(Zoc_number*32+1) !Set data file length 
TRANSFER @Buffer_pathl TO @Data_pathl !Store cai data on hard drive 


STATUS @Data_path1,3;Nr ! Number of records in cal file 

ASSIGN @Buffer_pathli TO * ! Close path 

ASSIGN @Data pathi1 TO * ! Close path 

! 

!---Reducing raw data and transferring data to hard driva 

PRINT 

PRINT “Reducing raw pressure data and transferring data to the hard drive.” 
DIM Data_disc2S(23] ! Defina string for data file name 

Data file2S="ZR_"&File ids ! Reduced data file name 

File nameS=Data_file2S ! Used for file purging if required 
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1960 Data _disc2S=Data_file2S&Hard_driveS 


1970 CREATE BDAT Data_disc2S,10,8¥*33 ! Create BDAT file of 33*8 byte records 
1980 ! and initial 10 records 

1990 { Each record contains one scan of the 
2000 ! 32 port Zoc in REAL pressure values 
2010 ! corrected by CAL2000 values 

2020 ASSIGN @Data_path2 TO Data_disc2S ‘{ Assign path to hard drive 

2030 ! 

2040 FOR Zoc_casa=1 TO Zoc_number ! Collect raw data, reduce data and 
2050 SELECT Zoc_case ! and stora raduca data on hard drive 
2060 CASE 1 

2070 CALL Raw red dat (Buffer,1,@Data_path2) 

2080 CASE 2 

2090 CALL Raw red dat(Buffer2,2,@Data_ path2) 

2100 CASE 3 

2110 CALL Raw_red_dat(Buffer3,3,@Data_path2) 


2120 END SELECT 
2130 NEXT Zoc_case 


2140 ! 

2150 STATUS @Data_path2,3;Nd ! Reduced data file length 
2160 ASSIGN @Data_path2 TO * ! Close buffer path 

2170 ! 


2180 CLEAR SCREEN 

2190 PRINT “Calibration data file: ";Data_file1S;" containing”;Nr;" records.” 

2200 PRINT “Reduced data fila: ";Data_file2S;" containing";Nd;" records.” 

2210 PRINT 

2220 PRINT “Filas ";Data_filalS;" and ";Data_file2S;" ara located on hard drive “;Hard_driveS 
2230 PRINT “Data reading programs available from HP6944A manu." 

2240 ! 

2250 Finish: ! 

2260 DISP “Press F2 to continue.” 

2270 PAUSE 

2280 LOAD "HP6944A_MENU”,10 

2290 Purge file: ! 

2300 IF ERRN=54 THEN 

2310 PURGE File nameS&Hard_driva$ 

2320 END IF 

2330 RETURN 

2340 |! 
2350 END 
2360 End: ! 
2370 ! Routine to oparate CAL2000 

2380 SUB Cal2000(CommandS,1I,Wait_period) 

2390 COM /Zoc_dat/ REAL Zoc_cal(96,10) BUFFER 





2400 DIM PressureS(5} ! Requirad to read data stream 

2410 OUTPUT 9;CommandS;CHRS(13);END !. Sets calibration mode 

2420 WAIT Wait _pariod ! Allow CAL2000 to stabilize 

2430 OUTPUT 9;"RP”;CHRS(13);:END ! Reads CAL2000 calibration pressure 
2440 ENTER 9 USING "#,SD.5DESZZ,K";Zoc_cal(0,1+3),PressureS 


2450 SUBEND 

S960 Pr mmm rr rt rt tr re rr er reer ners 
2470 ! Routine to operate HP6944A to collact pressure data and store in Memory 
2480 !Note: -Zoc address driven by Counter Card binary output at edge connection 
2490 |! through a 7404 open collector DIL/TTL located in an auxiliary box. 
2500 ! 

2510 SUB Scan_zocs(Count, Period) 

2520 COM /Names/ Buffer ,Adcl1,Timer 
2530 Wait_time=INT(Count*Period)+10 
2540 Init (Timer) 

2550 Set_timeout (Timer ,Wait time) 
2560 Set_count (Timer, Count) 

2570 Set_period(Timer, Period) 

2580 Init (Buffer ) 

2590 {INIT(BUFFERZ2) 

2600 !INIT(BUFFER3 ) 


Set Timer wait time to +10 secs. 
Initialize Timer system 

Set Wait _for period of xx secs. 
Set Count number into Timer ° 
Set Timer pulse length in secs. 
Initialize Buffer for data storage 


-—_ —-_ Ee 
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Start (Timer) ! Start data sample collection 
Wait_for(Timer) ! Data samples stored in Memory System 
SUBEND 


! Routine to raad raw calibration data from Memory System 

SUB Zoc_dat_cal(Buff,Cal(*),I) 
Input_rblock(Buff,Cal(*), 160, (I-1)*160+1) 

SUBEND 


! Routine to raduce Cal _(*) into Zoc_cal(I,J) 
SUB Zoc_dat_rad(Cal(*),Zoc) 
COM /Zoc_dat/ REAL Zoc_cal(96,10) BUFFER 


REAL A(3,3),58¢3),C(3),Sum_x(6),A_inv(3,3)! Laast Square reduction arrays 
REAL Calx(256,5) 
FOR J=4 TO 10 { Cal runs: NH,NM,NL, ZO, PL, PM, PH 
FOR I=1 TO 32 { Zoc ports par calibration run 
I1=(Zoc-1)*32+I 
FOR K=0 TO 4 { Number of samples par run 


Zoc_cal(I1,J)*Zoc_cal(I1,J)+Cal(I+K*32+(J-4)*160) 
Calx(I+(J-4)*32,K+1)=Cal (I+K*32+(J-4)*160) 
NEXT K 
Zoc_cal(I1,J)*Zoc_cal(I1,J)/5 ! Avaraga of 5 samplas par port I 
NEXT I 
NEXT J 


GOTO Least_squares 
! Print raw calibration data 
PRINTER IS 711 
PRINT "Raw calibration data for Zoc#":Zoc 
PRINT 
Format: IMAGE 3D,2X,3D.3D,2X,3D.3D,2X,3D.3D, 2X,3D.3D, 2X ,3D.3D 
FOR K=1 TO 7 
PRINT "RP=";:K 
FOR J=1 TO 32 
I=J+( (K-1)*32) 
PRINT USING Format; J,Calx(I,1),Calx(I,2),Calx(I,3),Calx(I,4),Calx(I,5) 
NEXT J 
NEXT K 
PRINTER IS CRT 
! 
Least_squaras: ! 


{ Calibration data reduction using Least Squaras Polynominal fitting. 
! 
FOR K=1 TO 32 { Loop for each port 
K1=(Zoc-1)*32+K 
! 
MAT C= (0) 
MAT Sum x= (0) 
! 
FOR J=1 TO 6 { Routine to reduca individual port cal 
FOR I=#4 TO 10 { data into alements to a powar x} 
Sum_x(J)=Sum_x(J)+Zoc_cal(K1,I)“J 
NEXT [I : 
NEXT J 
! 
FOR I=0 TO 3 ! Derive A array 


FOR J=0 TO 3 
ACI, J)=Sum_x(I+J) 
NEXT J 
NEXT I 
A(0,0)=7 ; 


FOR J=0 TO 3 ' Deriva C array 
FOR I=4 TO 10 
C(J)=C(J)+Zoc_cal(K1,I)°J*Zoc_cal(0,I) 
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3260 NEXT I 


3270 NEXT J 

3280 ! 

32390 MAT A_inv=™ INV(A) 

3300 MAT B= A_inv*C { B array is matrix of Least Square 

3310 ! coefficients a0,al,a2,& a3 for polynomial 
3320 ! equation fitting calibration data for a 
3330 ! specified port 

3340 ! 

3350 Zoc_cal(K1,0)=B(0) ! Collect Least Square coefficients 

3360 Zoc_cal(K1,1)=B(1) 

3370 Zoc_cal(K1,2)=B(2) 

3380 Zoc_cal(K1,3)=B(3) 

3390 ! 

3400 NEXT K 

3410 SUBEND 

3420 Pm rn nr rn tr ee ent een er eee eres canteen nsesccrs 


3430 SUB Raw_red_ dat(Buff,Zoc,@Data path2) 

3440 ! Routine to reduce raw data using polynomial: 
3450 COM /Zoc_dat/ REAL Zoc_cal(96,10) BUFFER 
3460 REAL Red _data(32) BUFFER 

3470 REAL Raw data(32) 

3480 COM /Stats/ REAL Period,Sample_ number 


3490 FOR Block#1 TO Sample_number t Loop routine to transfer data 
3500 ASSIGN @Buffer_ path2 TO BUFFER Red_data(*);FORMAT OFF 

3510 Input_rblock(Buff,Raw_data(*),32,1) ! Load data samples 

3520 Sample_time=Block*Period 

3530 ! 

3540 ! Red_data = a0 + al*x + a2*x°2 + a3*x"3 

3550 ! 

3560 ! where a0Q,al,a2, & a3 are Least Square coefficients, and x is 

3570 ! the individual port raw data value. 

3580 ! ° 

3590 FOR K#1 TO 32 

3600 K1=(Zoc-1)*32+K 

3610 Red_data(K)=Zoc_cal(K1,0)+Zoc_cal(K1,1)*Raw_data(K)+Zoc_cal(K1,2)*Raw_data(K)°2+Zoc_cal(K1,3)*Raw_ dat 
3620 NEXT XK 

3630 ! 

3640 Red_data(0)=Sample_ time ! Store reduce data sample time. 
3650 ! 

3660 CONTROL @Buffer path2,4;(32+1)*8 ! Close buffer when full 

3670 TRANSFER @Buffer_ path2 TO @Data path2 ! Transfer data to hard drive 
3680 ASSIGN @Buffer path2 TO * 

36390 NEXT Block 

3700 SUBEND 

S710 |e nn ts ns ns ee nn ee ee nnn earn a mannan 
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! Program: SCAN ZOC_ 04 
! Description: Application program to operste HP6944A collecting pressure 
' readings from 1-3 ZOC-14 32 port modules using the CAL2000 
to provide calibration data, reduce raw pressure data and 
store data to the hard drive. 
Hardware: (1) HP6944A Multi-processors 
- (2) 500 kHz A/D Cards (HP69759A) 
- (2) High Speed Memory Cards (HP69791A) 
~ (1) Timer/Pacer Card (HP69736A) 
- (1) Counter Card (HP69775A) 
(1) HiScan CAL2000 Calibration Module 
(1) ZOC-14 32 port Electronic Pressure Scanning Modules 
Notes: 1. This program utilizes up to three (3) Zoc Modules storing data 
of each Zoc into a seperate buffer Memory System (HP69791A). 
2. COM /Names/ line and BDAT file ZOC_CONFIG_04 must match for 
this program to operate. 
3. HiScan requires a short period to stabilize before reading 
the pressure valves. The Wait_for statement (line 340) sets this 
wait period in seconds. Adjustment of the variable my be required 
us additional Zocs are integrated into the Data Acquisition System. 
4. HiScan currently configured for one (1) calibrator. This 
program is written to operate one (1) or two (2) calibrators. 


Buffer Memory: 65536 16-bit data words in HP69791A per system 
Timer: Maximum 32676 counts for one HP69775A 
Max speed of HP system is Period=0.000002 sec. or 500 kHz. 


te eed ed ee de ee ee on he hn oe ee 


COM /Issscom/ INTEGER X(1:1106) 

COM /Isss_heap/ Isss_heap(1000) 

COM /Names/ Buffer1,Adcl,Buffer2,Adc2,Timer 
!Configure("“Menu_off",“ZOC_CONFIG_04") 
Configure("“Ask_me”,”"ZOC_ CONFIG 04”) 

! 


Wait _fore1.5 ! Wait time for HiScan stabilization 
! 

Tnpwe >t ---=-= OUEUT VAR UAB CES yam wm ne i co a 
PRINT “Program: SCAN _ZOC_04" 
PRINT “ - Scans 1-3 Zoc~-14 Modules (32 pressure sensing ports each)." 
PRINT “ - Uses Zero Operate Calibrate (ZOC) principal:” 
PRINT " ~ Collects raw pressure data (Zero Operate)" 
PRINT " ~ Collects calibration data (Calibrate)" 
PRINT " - Reduces raw data and stores data on hard drive :,700,0,1" 
PRINT “ -~ HiScan Calibration Module used for the reference pressure standard." 
PRINT “ - Raw pressure data reduced using calibration data from HiScan" 
PRINT ” and Zocs in the calibration mode." 
PRINT “ - Program designed to operate up to three (3) Memory~-A/D Cards" 
PRINT " simultaneously. COM /Names/ line must match Multi-progranmer" 
PRINT " (HP6944A) configuration. ZOC_CONFIG_04 file must be updated" 
PRINT " to the revised COM /Names/ line when altered.” 
PRINT 
PRINT “Input variables: Scan frequency (1-100,000 Hz)” 
PRINT " Samples per Port (1-1021)" 
PRINT “ Number of Zocs and their capacity" 
PRINT " Calibration/Reduced data file name ID" 


' 
! COM assigns calibration data array for 32 Zoc ports and standard values. 

COM /Zoc_dat/ REAL Zoc_cal1(33,10) BUFFER, Zoc_cal2(33,10) BUFFER,Zoc_cal3(33,10) BUFFER 
COM /Stats/ REAL Period,Sample number ,Wait_for, INTEGER Cal_mod_id(3) 

MAT Zoc_call= (0) 

MAT Zoc_cal2= (0) 

MAT Zoc_cal3= (0) 

PRINT 

INPUT “Enter data rate (1-100kHz):”",Hz 

INPUT "Number of samples per port (1-1021): “,Sample number 

INPUT "Number of Zoc’s connected to Multi~programer",Zoc_number 
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Cal_mod_id(0)=#Zoc_number 

FOR Zoc_case#1 TO Zoc_number 
SELECT Zoc_caae 
CASE 1 


INPUT "Enter Calibration Module number set for Zoc #1 (Enter 1 or 2):",Cal_mod_id(1) 


CASE 2 
INPUT "Enter Calibration 
CASE 3 
INPUT “Enter Calibration 
END SELECT 
NEXT Zoc_case 
INPUT "Enter Calibration and 
Period=1/Hz 
PRINT 
PRINT "Data acquisition rate 


! 

Zoc_cal1(0,0)=Period 
Zoc_cal1(0,1)="Sample_ number 
Zoc_cal1(0,2)=1 
Zoc_call1(0,3)sCal_mod_id(1) 
Zoc_cal2(0,0)=Period 
Zoc_cal2(0,1)=Sample_number 
Zoc_cal2(0,2)=2 
Zoc_cal2(0,3)=Cal_mod_id(2) 
Zoc_cal3(0,0)=Period 
Zoc_cal3(0,1)"Sample_number 
Zoc_¢cal3(0,2)=83 
Zoc_cal3(0,3)=Cal_mod_id(3) 
! 

PRINT 


Module number set for Zoc #2 (Enter 1 or 2):",Cal_mod_id(2) 


Module number set for Zoc #3 (Enter 1 or 2):",Cal_mod_id(3) 


Reduced Data file name ID (10 char max):",File_idS 


© 2 TAB(50);H2:" Hz” 

PRINT "Number of samplea per port:”;TAB(50);Sample_number 

PRINT “Number of Zocs to be scanned:”;TAB(50);Zoc_number 

PRINT “Total number of ports to be scanned:";TAB(50);Zoc_number*32 

PRINT "Total raw data acquisition time:”;TAB(50);Period*Sample_ number*32;" sec.” 

PRINT “Total calibration data acquisition time:";TAB(50);Period*5*32+(7*Wait_for);" sec." 


PRINT “Ensure HiScan is on-line, calibration pressure source at 90 psi,” 
PRINT “and calibrator pressure cut-off valve is open (on back of HiScan)" 


! 
! 


CONTROL 9,5;3 


WAIT Wait for 
! 


{ Set DTR & RTS to active for HiScan 
OUTPUT 9;VALS(1);"IC";CHRS(13);:END! Initialize Calibrator module #1 
OUTPUT 9;VALS(2);"IC";:CHRS(13);END! Initialize Calibrator module #2 

! Allow HiScan to set Zoca 


DISP “Press F2 to start data aquisition" 


PAUSE 
! 


CLEAR SCREEN 
PRINT 


PRINT “Collecting raw pressure data. 


Count=Sample_number*32 


CALL Scan_zocs(Count, Period) 
PRINT 


PRINT "Raw data collection complete. 


BEEP 
! 


PRINT 
! 


FOR Zoc_case=1l TO Zoc_number 


SELECT Zoc_case 
CASE Il 


! 


! 
: 
! 


! 
: 


@olllecturawidat: !=-= COLLECT RAW PRESSURE DATA --=<---------~-==---=--=--=- 


9 


Set Count as function of sample number 
and number of port readings (32) on 
Zoc for raw data collection. 

Collect raw data into Memory System 


" 


Raw data xfer: !------ TRANSFER RAW DATA FM MEMORY SYSTEM TO HARD DISC ----- 


Collect raw data, reduce data and 
and store reduce data on hard drive 


Development Program: SCAN ZOC 04 


9 


1310 CALL Raw _dat(Bufferl,1,Sample_ number) 
1320 CASE 2 


1330 CALL Raw dat (Buffer2,2,Sample_number) 
1340 CASE 3 
1350 CALL Raw dat (Buffer3,3,Sample_number) 


1360 END SELECT 

1370 NEXT Zoc_case 

1380 ! 

1390 Inttgel ecals 1-------- CALTERAME ONGOE Ub ts crea 6 8 8 ee a= Se 
1400 { Calibration data array for each Zoc: Zoc_cal_ (33,10) 

1410 ! Format: 


1420 ! For ports i#1 to 33 

1430 ! Row 0, column 0: Period 

1440 ! Row 0, column 1: Sample number 

1450 ! Row 0, columm 2: Zoc # 

1460 ! Row 0, column 3: Calibrator module ID (1"50 psi 2=15 psi) 

1470 !} Row 0: _—«_—ss——C_sCé«A:*NM ‘NLL ZO) ~PLSOPM SOPHOC(praaaura Hg.) 

1480 1 Row i: AO Al A2 A3 NH NM NL ZO PL PM PH (LS coef,press volts) 
1490 ! LS coef are Least Squares curve fit coef for third order polynomial. 
1500 ! 

1510 PRINT 


1520 PRINT "Collecting calibration data.” 

1530 REAL Cal1(1120) ,Cal2(1120),Cal3(1120)! Calibration data array 

1540 Count#32*5 ! Sat count to collect calibration data 
1550 DIM Command_modeS(1:7)[2) 

1580 Command_modeS$(1)="NH” 

1570 Command_modeS(2)="NM" 

1580 Command_modeS$(3)="NL” 

1590 Command_modeS(4)="Z0" 

1600 Command_modeS(5)="PL" 

16810 Command_modeS(8)=" PM” 

1620 Command_modeS(7)="PH" 

1630 ! 

1840 Collect_cal_dat:!---- COLLECT RAW CALIBRATION DATA corrrrrnnererrer rr rrnnH- 
1850 ! 

1880 { Collect raw calibration data for each HiScan setting 

1670 FOR Indax=1 TO 7 

1680 CALL Cal2000(Command_modeS( Index) , Index) 

1890 CALL Scan_zocs(Count, Pariod) 

1700 FOR Zoc_case=1 TO Zoc_number 


1710 SELECT Zoc_case 

1720 CASE 1 

1730 Input_rblock(Bufferl1,Cal1(*) ,180, (Indax-1)*160+1) 
1740 CASE 2 

1750 Input_rblock(Buffer2,Cal2(*) , 160, (Index-1)*160+1) 
1780 CASE 3 

1770 Input_rblock(Buffer3,Cal3(*) , 180, (Index-1)*160+1) 
1780 END SELECT : 


1790 NEXT Zoc_caaa 

1800 NEXT Index 

1810 |! 

1820 PRINT 

1830 PRINT "Calibration data collection complete.” 

1840 BEEP 

1850 WAIT .25 

1860 BEEP 

1870 OUTPUT 9;VALS(1);"IC";CHRS(13);END! Initializa Calibrator module #1 
1880 OUTPUT 9: VALS(2);"IC";CHRS(13);END! Initializa Calibrator module #2 
1890 PRINT 

1900 PRINT ”"*** Secura Calibrator presaure valva to conaerva Nitrogen ***" 
1910 PRINT 

1920 PRINT "“HiScan Calibration modes and pressurea (in Hg):” 

1930 Fmtl: IMAGE /,5X,K,10X,K,10X,K,10X,K 

1940 PRINT USING Fmt1;"Mode”,"Zoc #1","Zoc #2","Zoc #3" 

1950 Fmt2: IMAGE 6X,K,10X,3D.4D, 8X,3D.4D,8X,3D. 4D 
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FOR I=4 TO 10 
PRINT USING Fmt2;Command_modeS(I-3),Zoc_cal1(0,I),Zoc_cal2(0,1),Zo0c_cal3(0,I) 
NEXT I 
! 
Reduce_cal _ dat: !----- REDUCE CALIBRATION DATA AND STORE ON HARD DRIVE ----- 
! Routine to reduce Cal _(*) into Zoc_cal_(I,J) and store on hard drive 
! 
PRINT 
PRINT 
PRINT “Hard drive name => :,700,0,1" 
FOR Zoc_case#1 TO Zoc_number 
SELECT Zoc_case 
CASE 1 
CALL Zoe_dat_red(Call(*),Zoc_call(*),File idS) 
CASE 2 
CALL Zoc_dat_red(Cal2(*),Zoc_cal2(*),File idS) 
CASE 3 
CALL Zoc_dat_red(Cal3(*),Zoc_cal3(*),File idS) 
END SELECT 
NEXT Zoc_caae 
! 
Reduce _ data: !----- REDUCE DALA AND STORE ON BARD DRIVE 2--<--<<<-<-=<<==--- 
! Routine lLoada raw and calibration data from hard drive, reduces the raw 
! data, and atores the reduced data to the hard drive. 
! 
FOR Zoc_case#1 TO Zoc_number 
SELECT Zoc_caae 
CASE 1 
CALL Raw_red_dat(Zoc_call(*),File idS) 
CASE 2 
CALL Raw_red_dat(Zoc_cal2(*),File_ id$) 
CASE 3 } 
CALL Raw_red_dat(Zoc_cal3(*),File_idS) 
END SELECT 
NEXT Zoc_caae 
! 
BEEP 
WAIT .25 
BEEP 
WAIT .25 
BEEP 
! 
Finish: ! 
PRINT 
PRINT “Available Memory: ";SYSTEMS("AVAILABLE MEMORY") 
DISP “Preaa F2 to continue and return to ZOC Menu." 











PAUSE 

LOAD "ZOC_ MENU", 10 

t 

END 
End: ! 

! Routine to operate HP6944A to collect pressure data and store in Memory 
!Note: -Zoc address driven by Counter Card binary output at edge connection 


! through a 7404 open collector DIL/TTL located in an auxiliary box. 


! 
SUB Scan_zocs(Count, Period) 


COM /Names/ Bufferl,Adc1l,Buffer2,Adc2, Timer 


Wait _time=INT(Count*Period)+10 
Init(Timer) 
Set_timeout (Timer ,Wait_time) 
Set count (Timer, Count) 
Set_period(Timer, Period) 
Init(Bufferl) 

Init (Buffer2) 

! INIT(BUFFER3) 


! 
! 
: 
' 
! 


Set Timer wait time to +10 secs. 
Initialize Timer system 

Set Wait_for period of xx secs. 
Set Count number into Timer 

Set Timer pulse Length in secs. 
Initialize Buffer for data storage 
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! 


Start (Timer) ! Start data sample collection 
Wait_for(Timer ) ! Data samples stored in Memory System 


SUBEND 


Subroutine to collect raw pressure data from Memory System and store 
onto the hard drive for future data reduction. 


SUB Raw_dat(Buff, Zn,Sn) 


ON ERROR GOSUB Purge file 

INTEGER Raw_data(1:32672) BUFFER ! Integer raw data buffer for 32*1021 
! data samples. Integer format for 
! mininum transfer time to storage. 


Data_fileS=" ZRAW”’&VALS (Zn) ! Raw data file 
Data_discS=Data_fileS&":,700,0,1” 
CREATE BDAT Data_discS,1,2 ! Create BDAT file of 2 byte records. 


ASSIGN @Data path TO Data _discS ! Assign path to hard drive 
ASSIGN @Buffer path TO BUFFER Raw _data(*);FORMAT OFF 


Input_iblock(Buff,Raw_data(*) ,Sn*32,1) ! Load data samples 
CONTROL @Buffer path,4;32*2*Sn ! Close buffer when full 
TRANSFER @Buffer_ path TO @Data_ path ! Transfer data to hard drive 


ASSIGN @Buffer_path TO * 

ASSIGN @Data_path TO * 

PRINT "Raw pressure data for Zoc #";2n;" transferred to the hard drive file ";Data_ fileS 
GOTO Fin 


2840 Purge fila: ! 


2850 
2860 
2870 
2880 
2890 
2900 
2910 


IF ERRN=54 THEN 
PURGE Data_discS 

END IF 

RETURN 


Fin: ! 


SUBEND 
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2920 ! Subroutine controla calibration mode and reads preasure from Pressure 
! Standerd into Zoe _cal(*) array. 
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SUB Cal2000(CommandS ,I) 


COM /Zoc_dat/ REAL Zoc_cali(*) BUFFER, Zoc_cal2(*) BUFFER, Zoc_cal3(*) BUFFER 
COM /Stats/ REAL Period,Sample_number,Wait_for, INTEGER Cal_mod_id(3) 
DIM PraasureS[5] Raquired to raad data stream 
OUTPUT 9; VALS(1);CommandS;CHRS(13);END ! Sets calibrator #1 mode 
OUTPUT 9: VALS(2);CommandS ;CHRS(13);END ! Sats calibrator #2 mode 
WAIT Wait_for ! Allow HiScan to stabilize 

! 


FOR K=1 TO Cal_mod_id(0) Raad HiScan cal press 
SELECT K 
CASE 1 


OUTPUT 9; VALS(Cal_mod_id(1));"RP";CHRS(13);END 
ENTER 9 USING "¥#,SD.5DESZZ,K";Zoc_cal1(0,I+3), Pressures 
CASE 2 
OUTPUT 9;VALS(Cal_mod_id(2));"RP";CHRS(13) ; END 
ENTER 9 USING "#,SD.5DESZZ,K" ; Zoe_cal2(0,I+3), PrassuraS 
CASE 3 
OUTPUT 9;VALS(Cal_mod_id(3));"RP";CHRS(13); END 
ENTER 9 USING "#,SD.5DES2Z ,K";Zoc_cal3(0,I+3), PressuraS 
END SELECT 
NEXT K 
IF I<=3 THEN ! Account for positive prassures used 
Zoc_cali(0,I+3)=-Zoc_cali(0,I+3) ! by HiScan in the NH,NM, & NL mode. 
Zoc_cal2(0,I+3)"-Zoc_cal2(0,I+3) 
Zoc_cal3(0,I+3)*-Zoc_cal3(0,I+3) 
END IF 


SUBEND 


Subroutine raduces calibration data collected from Memory System and 
HiScan calibration pressure data into a Third-order polynomial curve 
fit using the Least Squares routine. The complete calibration array 
Zoc_cal_ is then stored onto the hard drive. 


SUB Zoc_dat_red(REAL Cal(*),Zoc_cal(*) BUFFER,F_idS) 


Figure B4 (cont) Development Program: SCAN ZOC 04 
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3280 REAL A(3,3),B(3),C(3) ,Sum_x(6),A_inv(3,3)! Least Square reduction arrays 
3270 |! 
3280 ! Converting Cal(*) to Zoc_cal(*) 


3290 FOR J#=4 TO 10 ! Cal runs: NH,NM,NL, ZO, PL, PM, PH 
3300 FOR [#1 TO 32 ! Zoc ports per calibration run 
3310 FOR K=0 TO 4 ! Number of samples per run 

3320 Zoc_cal(I,J)=Zoc_cal(I,J)+Cal(I+K*32+(J-4)*160) 

2330 NEXT K 

3340 Zoc_cal(I,J)™Zoc_cal(I,J)/5 ! Average of 5 samples per port I 
3350 NEXT I 

3360 NEXT J 

3370 ! 

3380 ! Calibration data reduction using Least Squares Polynominal fitting. 
3390 FOR K#1 TO 32 ! Loop for each port 

3400 ! 

3410 MAT C# (0) 

3420 MAT Sum_x=™ (0) 

3430 ! : 

3440 FOR J#1 TO 6 ! Routine to reduce individual port cal 
3450 FOR I=4 TO 10 ! data into elements to a power x*j 
3460 Sum_x(J)=Sum_x(J)+Zoc_cal(K,I)“J 

3470 NEXT I 

3480 NEXT J 

3490 ! 

3500 FOR I=0 TO 3 ! Derive A array 

3510 FOR J=0 TO 3 

3520 A(I,J)=Sum_x(I+J) 

3§30 NEXT J 

3540 NEXT I 

3550 A(0,0)=7 

3560 ! 

3570 FOR J=0 TO 3 { Derive C array 

3580 FOR I=4 TO 10 

3590 C(J)sC(J)+Zoc_cal(K,1I)°J*Zoc_cal(0,1) 

3600 NEXT I 

3610 NEXT J 

3620 ! 

3630 MAT A_inv= INV(A) 

3640 MAT B= A_inv*C ! B array is matrix of Least Square 
3650 ! coefficients a0,al,a2,& a3 for polynomial 
3660 ! equation fitting calibration data for a 
3670 ! specified port 

3680 ! 

3690 ! Collect Least Square coefficients 

3700 Zoc_cal(K,0)=B(0) 

3710 Zoc_cal(K,1)=B(1) 

3720 - Zoc_cal(K,2)=B(2) 

3730 Zoc_cal(K,3)=B(3) 

3740 ! 

3750 NEXT K 

3760 ! 


3770 ! Transfer calibration data to hard drive. 

3780 ON ERROR GOSUB Purge_ file 

3790 DIM Data_discS{23) ! Define string for data file name 

3800 Data_fileS="ZC”"&VALS(Zoc_cal(0,2))&"_"&F_idS ! Zoc calibration file name 
3810 Data_discS=Data_ fileS&”:,700,0,1" 

3820 CREATE BDAT Data_discS,33,8*11 ! Create BDAT file of 11*8 byte 

3830 ASSIGN @Data_path TO Data_discS ! Assign path to hard drive 

3840 ASSIGN @Buffer_path TO BUFFER Zoc_cal(*);FORMAT OFF 

3850 CONTROL @Buffer_path,4;8*11*33 !Set data file length 

3860 TRANSFER @Buffer_path TO @Data_path!Store cal data on hard drive 

3870 ASSIGN @Buffer_path TO * ! Close path 

3880 ASSIGN @Data_path TO * ! Close path 

3890 PRINT “Calibration data for Zoc #";Zoc_cal(0,2);” transfer to the hard drive file ";Data_fileS 
3900 GOTO Fin 


Figure B4 (cont) Development Program: SCAN ZOC 04 
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3910 Purge file: ! 

3920 IF ERRN=54 THEN 

3930 PURGE Data_discS 

3940 END IF 

3950 RETURN 

3960 Fin: ! 

3970 SUBEND 

3980 | fa 6 a 8 a a 9 a a a a Se Sr wn am ew en we ne n= = 
3990 ! Subroutine Loads raw data from the hard driva, reduces the data using 
4000 ! calibration coaficients, and atores the reduced data onto the hard drive 
4010 SUB Raw rad _dat(REAL Zoc_cal(*) BUFFER,F_idS) 

4020 COM /Namas/ Bufferl,Adc1,Buffer2,Adc2,Timer 

4030 INTEGER Data_intager(1:32) BUFFER 

4040 REAL Data_real(1:32),Data(32) BUFFER 

4050 DIM Data_file2S[(23) 

4060 ON ERROR GOSUB Purge_file 

4070 Data_file1lS="ZRAW"&VALS(Zoc_cal(0,2)) 

4080 Data_diaciS=Data_ file1S&":, 700,0,1" 

4090 Data _fila2$="ZR"SVALS(Zoc_cal(0,2))&"_"&F idS 

4100 Data_disc2S=Data_file2S&": ,700,0,1” 

4110 CREATE BDAT Data_disc2$,1,8*%33 ! Create BDAT file of 33*8 byte records. 
4120 ASSIGN @Data_pathl TO Data_disc1S 

4130 ASSIGN @Data_ path2 TO Data_disc2S 


4140 CONTROL 6Data_path1,5;2 {Set raad pointer to first data byte 
4150 ! 

4160 { Racovar raw data, convert to real, raduce then store in blocks 
4170 ! of samplea (32 porta acanned per block) 

4180 FOR Block=1 TO Zoc_cal(0,1) 

4190 ASSIGN @Buffer_path1 TO BUFFER Data_integer(*);FORMAT OFF 

4200 TRANSFER @Data_pathl1 TO @Buffer path1;COUNT 32*2 

4210 CONTROL @Buffer_pathl, 4;32*2 

4220 SELECT Zoc_cal(0,2) 

4230 CASE 1 

4240 Translate(Adcl,Data_integer(*),Data real(*)) 

4250 ~- CASE 2 

4260 Translate(Adc2,Data_intager(*),Data_real(*)) 

4270 CASE 3 

4280 END SELECT 

4290 ! 

4300 ! Routina to reduce raw data uaing polynomial: 

4310 ! 

4320 ! Data = a0 + al*x + a2*x°2 + a3*x°3 

4330 ! 


4340 ! where a0,al,a2, & a3 are Leaat Square coefficiants, and x is 
4350 ! the individual port raw data value. 


4360 ! 

4370 Sample_time=Zoc_cal(0,0)*(Block-1) 

4380 Data(0)=Sample_time ! Store reduce data sample time. 
4390 FOR K=1 TO 32 

4400 Data(K)=Zoc_cal(K,0)+Zoc_cal(K,1)*Data_real(K)+Zoc_cal(K,2)*Data_real(K)~2+Zoc_cal(K,3)*Data_real(K 
4410 NEXT K 

4420 ! 

4430 ASSIGN @Buffer_path2 TO BUFFER Data(*) 

4440 CONTROL @Buffer path2,4;8*33 

4450 TRANSFER @Buffer_path2 TO @Data_path2 

4460 ASSIGN @Buffer_path2 TO * 

4470 NEXT Block 

4480 ! 


4490 ASSIGN @Data_ pathl TO * 

4500 ASSIGN @Data_path2 TO * 

4510 ASSIGN @Buffer pathl TO * 

4520 PRINT "Reduced data file for Zoc #";Zoc_cal(0,2);" transfer to the hard drive file ";Data_ file2s 
4530 GOTO Fin 

4540 Purge file: : 

4550 IF ERRN=54 THEN 
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4560 PURGE Data disc2$ 
4570 END IF 

4580 RETURN 

4590 Fin: ! 

4600 SUBEND 


Figure B4 (cont) Development Program: SCAN ZOC 04 
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APPENDIX C. DATA FILE MANAGEMENT 


SCAN _ZOC_05 generates a large number of data files ina 
short period of time. During program development, it was 
desirable to purge these files from the "DATA" hard drive 
";,700,0,1" to keep track of useable files and remove unwanted 
files. The utility program "PURGE PROG", Figure Cl, was 
developed to purge SCAN ZOC_O5-generated data files from the 
hard drive. This program can be used when known bad data has 
been collected and it is desirable to purge these files from 
the hard drive. 

PURGE_PROG is located on the UTILity directory (Figure 


Dl). It is loaded into RAM from any directory and run by 
typing, 
1. LOAD "/UTIL/PURGE PROG", followed by depressing the 
<Enter> key to load the program into the RAM. 


2. RUN, followed by the <Enter> key to execute the program. 


The program executes a CAT command and displays the hard 
drive files as illustrated in Figure C2. The program prompts 
the user for the date (YMMDD), the first run number, and last 
run number of consecutive data files to be purged. Program 
actions are displayed on the screen. The program prompts the 


user to purge more files or to re-display the remaining files 
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using the CAT command. If file re-display (2=CAT) is 
selected, the program prompts again for the date and run 


numbers. Entering <0,0,0> will exit the program. 
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10 !Program to purge designated files from SCAN ZOC_ 05 
20 CLEAR SCREEN 

30 ON ERROR GOTO Cont 

40 DriveS=":,700,0,1" 

50 Inputl: ! 

60 CAT DriveS;SELECT "Zz" 

70 PRINT 

860 Input2: |! 

90 INPUT “Enter date (YMMDD), begin run#, end run# (0,0, 0=Exit)"”,DateS, RunO,Runl 
100 IF RunO=0 THEN Fin 

101 FOR Zoc=1 TO 3 


102 FOR Run#RunO TO Runl 
110 File1S="ZW"&VALS(Zoc )&DateS&VALS (Run) 
120 File2S="ZC"&VALS( Zoc )&DateS&VALS (Run) 
130 File3S="ZR"&VALS(Zoc )&DateS&VALS (Run) 
140 Purgel: ! 
150 PURGE File1S&DriveS 
160 PRINT “Purged file: “:File1S 
170 Purge2: ! 
180 PURGE File2S&DriveS 
190 PRINT “Purged file: “;:File23 
200 Purge3: ! 
210 PURGE File3S&DriveS 
220 PRINT “Purged file: “;File3$ 
280 GOTO Next 
290 Cont: ! 
300 IF ERRN=56 THEN 
310 SELECT ERRLN 
320 CASE 150 
330 GOTO Purge2 
340 CASE 180 
350 GOTO Purge3 
360 CASE 210 
-~370 GOTO Next 
380 END SELECT 
390 END IF 
400 RETURN 
401 Next: ! 
402 NEXT Run 
403 NEXT Zoc 
405 Print: ! 
406 PRINT 


407 INPUT “Purge more? (0=No 1°Yes 2=CAT)"”,Act 
408 IF Act=1 THEN Input2 
409 IF Act®2 THEN Inputl 


410 Fin: ! 
420 LOAD “ZOC_MENU",10 
430 END 


Figure Cl TPL Program: PURGE PROG 
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700,01 
VOLUME LABEL: DATA 


FILE NAME PRO TYPE REC/FILE BYTE/REC ADDRESS DATE TIME 
2W1205161 BDAT 97 Z 592 16-May-92 14:54 7 
ZW2205161 BDAT 97 2 594 16-May-92 14:54 
2W3205161 BDAT 97 2 596 16-May-92 14:54 
201205161 BDAT 33 88 598 16-May-92 14:55 
202205161 BDAT 33 88 611 16-May-92 14:55 
203205161 BDAT 33 88 624 16-May-92 14:55 
ZR1205161 BDAT 3 264 637 16-May-92 14:55 
ZR2205161 BDAT 3 264 642 16-May-92 14:55 
ZR3205161 BDAT 3 264 647 16-May-92 14:55 


Figure C2 Hard Drive Sample Listing of ZOC-14 DAS Data Files 
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APPENDIX D. TPL PROGRAMS 


A selection of programs generated for use at TPL are 
documented in this Appendix. The programs are found in 
individual directories according to their specific function or 
purpose. Figure Dl displays the major directories and the 
associated programs. Each directory is identified by the 
forward slash character "/", followed by the directory name, 
and a colon, followed by the system drive name "CS80:,700". 
Subdirectories are identified by the FILE TYPE "DIR". BASIC 
programs are identified by. the FILE TYPE "PROG". 

"AUTOST", Figure D2, is the HP9000 initialization program 
located in directory "/WORKSTATIONS". This program is called 
by the BASIC system during boot-up. AUTOST is used to display 
the Main Menu and define the function keys used to select the 
Sub Menus and associated programs in the HP9000 Data 
Acquisition Systen. 

Turbocharger performance mapping programs (prepared for 
student laboratories) are listed in Figures D3-D6. The 
program "SCAN TEMP", Figure D7, is used to monitor temperature 
probes. SCAN TEMP, as listed, monitors temperature probe 
outputs from the Turbocharger Test Cell. "TURBO MENU", Figure 
D8, is used to select the turbocharger the above programs 


(Figures D3-D7). 


ibals, 


Turbomachinery design programs used in the course AE 4431 
are listed in Figures D9-D13. 

Program "SCAN", Figure D114, is used to operate the HG-78K 
Scanivalve Controller, HP3495A Scanner, HP3456A Digital 
Voltmeter, and records Scanivalve transducers. SCAN and 
SCAN TEMP programs, located in directory /WORK/DEVICE_PROG, 
are used in the majority of programs required for data 
acquisition at TPL. 

The sub-program "Plot", Figure D15, is appended to the end 
of programs used to display plots on the HP9000 CRT, or for 
generating plots on the various plotters. 

The sub-program "FNDate$", Figure D16, is a user-defined 
function to calculate numbered values for the date in the 
format year, month, and day. FNDate$ is in sub-program 
"Date func", which is located in the directory 
/WORK/FUNCTION PROG. 

“FILE XFER", Figure D17, is a utility program used for 
file transfer and "purging" on the HP9000. FILE XFER is 
located in the /UTIL directory. 

The program "MAIN MENU", Figure D18, is used to quickly 
restore the CRT screen to its system display and call-up the 
Main Menu screen. The program is located in the root 
directory /. Loading and executing MAIN MENU is accomplished 
by entering the following command on the HP9000, and executing 
the command by depressing the Enter key: 


LOAD “/MAIN MENU”,10 <Enter> 


i511 





/WORKSTATIONS:CS80, 
LABEL: 
FORMAT: HFS 
AVAILABLE SPACE: 
FILE 
FILE NAME TYPE 
BINS.1 DIR 
STUDENT DIARY DIR 
AUTOST PROG 
DIRECTORY_INFO PROG 
/TURBINE:CS80, 700 
LABEL: 
FORMAT: HFS 
AVAILABLE SPACE: 
FILE 
FILE NAME TYPE 
TURBO2 PROG 
TURBOS PROG 
TURBOS PROG 
TURBOI PROG 
TURBO_MENU PROG 
SCAN_TEMP PROG 
TURBO_BAK DIR 
/HP6944A:CS80, 700 
LABEL: 
FORMAT :. HFS 
AVAILABLE SPACE: 
FILE 
FILE NAME TYPE 
fp_data BDAT 
CARD_TEST PROG 
CONF IGURE PROG 
LIBRARY_5 PROG 
VERIFY PROG 
menu_data BDAT 
MENUER PROG 
FRONT_P PROG 
HP6944A_ BAK DIR 
TABULATE_ZOC PROG 
READ _ZOC PROG 
SCAN_ZOC_05 PROG 
CAL_READ_PR1i PROG 
LS_PLOT PROG 
DOCUMENT PROG 
VER_CFG BDAT 
HP6944A MENU PROG 
DEVELOPMENT DIR 
PLOT_DATA PROG 
ZOC_CONFIG_05 BDAT 
ZOC_MENU PROG 
Figure Dl 





700 


23328 
NUM 
RECS 
ral 
87 
11 
34 


23328 
NUM 
RECS 
14 
14 
34 
45 
7 
8 
4 


23528 
NUM 
RECS 
18 
ay 
127 
888 
282 
71 
136 
174 
8 
13 
11 
1148 
2 
22 
59 
8 

7 
11 
29 
5 

9 





REC 
LEN 
32 
32 
256 
256 


REC 
LEN 


256 
256 
256 
256 
256 
256 

32 


REC 
LEN 
256 
256 
256 
256 
yo 2) 
226 
256 
256 

32 
256 
256 
258 
258 
256 
256 
256 
256 
32 
256 
256 
256 


MODIFIED 


DATE 

17-Jan-92 
14-Apr-92 
29-Apr-92 
30-Apr-92 


TIME 
14:25 
17:41 
13:32 
15-11 


MODIFIED 


DATE 
t=Ger-9! 
1-Oct-91 

16-Oct-91 

21-Oct-91 
29-Apr-92 
30-Apr-92 
20-Apr-92 


TIME 
17:40 
17:43 
16:01 

7°59 
15:52 

7255 
13:49 


MODIFIED 


DATE 
3-Jan-92 
3-Jan-92 
3-Jan-92 
3-Jan-92 
3-Jan-92 
3-Jan-92 
3-Jan-92 
3-Jan-92 

30-Apr-92 

26-Apr-92 
26-Apr-92 
30-Apr-92 
30-Apr-92 
30-Apr-92 
13-Apr-92 
24-Apr-92 

7ZADE oe 
30-Apr-92 
30-Apr-92 
26-Apr-92 
24-Apr-92 


TIME 
Hos 74 
A 
253 
754 

8:02 
12:20 
13:40 
13:41 
12¢57 
15:40 
17:30 
13202 
13:49 
14:33 

8:45 
1651 

7?18 
15:07 
14:18 
16: $3 
12:55 


~~ “SN ~S 


OZ 


PERMISSION 


RWXRWXRWX 
RWXRWXRWX 
RW-RW- RW- 
RW-RW-RW- 


PERMISSION 


ee ee 


RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RWXRWXRWX 


PERMISSION 
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RW-RW- RW- 
RW- RW-RW- 
RW- RW- RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RWXRWXRWX 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW- RW- 
RW-RW-RW- 
RW-RW-RW- 
RWXRWXRWX 
RW- RW-RW- 
RW- RW-RW- 
RW-RW-RW- 


OWNER 
18 
18 
18 
18 


OWNER 


18 
18 
18 
18 
18 
18 
18 


OWNER 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 


GROUP 


9 


9 
9 
9 


GROUP 


noo DODO oO 0 wo 


GROUP 


u 
| 
i 
i 
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/DESIGN:CS80, 700 

LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23528 
FILE NUM 

FILE NAME TYPE RECS 

DESIGN_BAK DIR 4 

DES IGN_MENU PROG 8 

R_4431T PROG 21 

A_4431T PROG yah 

TURB3 PROG 29 

TURB4 PROG 36 

/WORK:CS60, 700 

LABEL: 

FORMAT: HFS 

AVAILABLE SPACE: 23528 
FILE NUM 

FILE NAME TYPE RECS 

FUNCTION PROG DIR iZ 

DEVICE_PROG DIR Ze 

DISCREP_DOC PROG 3) 


/WORK/DEVICE_PROG:CS60, 700 
LABEL: 





FORMAT: HFS 
AVAILABLE SPACE: 23526 
FILE NUM 
FILE NAME TYPE RECS 
CAL PROG 7 
CAL_READ_ PR PROG 11 
SET BRIDGE PROG 6 
READ_PORT PROG 5 
. SCAN_ PORT PROG 4 
BCD_CONVERT PROG 4 
SCAN_TEMP PROG 8 
UNPACK PROG a 
HP37_PACK PROG 5 
HP37_BENCH PROG 7 
HP37_ BCD PROG 2 
HP37-56 PROG 3 
HPS6_PACK PROG 7 
HP37_EXT1 PROG 4 
HP56SRQ PROG 3 
HP5S6MEM PROG 5 
HP37_EXT2 PROG 4 
HP37_A(*) PROG 3 
HP37_GRAPH PROG 12 
HP37_INT PROG 12 
SCAN PROG 11 
OUTPUT_9 PROG 5 


Figure Dl (cont) 


REC 
LEN 

32 
256 
256 
250 
256 
256 


REC 
LEN 


32 
32 
256 


REC 
LEN 


256 
256 
236 
256 
256 
256 
256 
256 
256 
256 
256 
256 
Zoo 
256 
256 
256 
256 
256 
256 
256 
256 
256 
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MODIFIED 
TIME 
8:07 
16:41 
13:59 
14:01 
14;32 
16:42 


DATE 


30-Apr-92 
16-Dec-91 
16-Dec-91 
16-Dec-91 
17-Dec-91 
20-Dec-91 


MODIFIED 


DATE 


MODIFIED 


DATE 


20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
20-Apr-92 
27-Apr-92 
30-Apr-92 


TIME 
20-Apr-92 14:35 
30-Apr-92 15:29 
30-Dec-91 11:59 


TIME 


14: 
14; 
14: 
14: 
14: 


14 


14: 
14: 
14: 


14 
14 


14: 
14: 


14 


14: 
14: 


14 
14 
14 


14: 
14: 
15 


i> 
16 
16 
16 
17 
$17 
16 
23 
23 
224 
724 
24 
24 
224 
26 
26 
: 26 
726 
VATS 
27 
13 
29 


PERMISSION 
RWXRWXRWX 
RW~RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 


PERMISSION 
RWXRWXRWX 
RWXRWXRWX 
RW-RW-RW- 


PERMISSION 
RW-RW-RW- 
RW-RW-RW- 
RW- RW-RW- 
RW-RW-RW- 
RW-RW- RW- 
RW-RW-RW- 
RW-RW-RW- 
RW- RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW-RW-RW- 
RW- RW- RW- 
RW-RW-RW- 
RW-RW-RW- 
RW- RW-RW- 
RW-RW- RW- 
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OWNER GROUP 
18 
16 
16 
16 
18 
18 
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GROUP 


OWNER 


18 9 
18 
18 


GROUP 


OWNER 
18 
16 
18 
18 
16 
16 
16 
16 
16 
18 
16 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
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/WORK/FUNCTION PROG:CS80, 700 














LABEL: 
FORMAT: HFS 
AVAILABLE SPACE: 23528 

FILE NUM REC MODIFIED 
FILE NAME TYPE RECS LEN DATE TIME PERMISSION OWNER GROUP 
GRAPH PROG 9 256 20-Apr-92 14:20 RW-RW-RW- 18 9 
GRAPH_PLOTTER PROG 6 256 20-Apr-92 14:20 RW-RW-RW- 18 9 
Plot PROG 10 256 20-Apr-92 14:20 RW-RW-RW- 18 9 
Date func PROG 4 256 20-Apr-92 14:20 RW-RW-RW- 18 9 
Square PROG 4 256 20-Apr-92 14:21 RW-RW-RW- 18 9 
BUFF 1 PROG 9 256 20-Apr-92 14:21 RW-RW-RW- 18 9 
LEAST_SQUARE PROG 6 256 20-Apr-92 14:21 RW-RW-RW- 18 9 
LS_TEST PROG 18 256 20-Apr-92 14:21 RW-RW-RW- 18 9 
LS_PLOT1 PROG 17 256 20-Apr-92 14:21 RW-RW-RW- 18 9 
TEST BDAT 4 256 20-Apr-92 14:22 RW-RW-RW- 18 9 
DATA_LOGGIN PROG 4 256 20-Apr-92 14:22 RW-RW-RW- 18 9 
STOPWATCH PROG 4 256 20-Apr-92 14:23 RW-RW-RW- 18 0 
/UTIL:CS80, 700 
LABEL: 
FORMAT: HFS 
AVAILABLE SPACE: 23528 

FILE NUM REC MODIFIED 
FILE NAME TYPE RECS LEN DATE TIME PERMISSION OWNER GROUP 
ee we Sere Seas Snes Sees Swe we 
VERIFY PROG 153 256 31-Jul-91 16:54 RW-RW-RW- 18 9 
HPIB_CHECK PROG 4 256 99-Aug-91 9:03 RW-RW-RW- 18 9 
BACKUP PROG 397 256 23-Aug-91 14:03 RW-RW-RW- 18 9 
RETURN MAIN = PROG 2 256 20-Apr-92 14:34 RW-RW-RW- 18 9 
MAIN MENU PROG 2 256 20-Apr-92 16:02 RW-RW-RW- 18 9 
PURGE_PROG PROG 6 256 26-Apr-92 15:49 RW-RW-RW- 18 9 
COPY FILES PROG 4 256 30-Apr-92 7:45 RW-RW-RW- 18 9 
FILE_XFER PROG 6 256 30-Apr-92 8:20 RW-RW-RW- 18 9 
LASERJET PROG 3. 256 30-Apr-92 15:58 RW-RW-RW- 18 9 


Figure Die (cont pelts mogeo re br 1 PEO? mans wb ysDilreceein, 
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10 !Program: AUTOST 

20 !Description: Program is loaded immediately following system boot-up 
30 ! providing an initial User to Computer interface through 
40 ! Function Key menu selection. 

50 CLEAR SCREEN 

60 KEY LABELS ON 

70 DUMP DEVICE IS 711 

80 ON KEY 1 LABEL “ TURBO CHARGER" GOTO Turbo 

90 ON KEY 2 LABEL "COMPRESSLAB" GOTO Compressor 

100 ON KEY 3 LABEL "DESIGN" GOTO Design 

110 ON KEY 4 LABEL “MULTI PROGRAM" GOTO Hp6944a 

120 ON KEY 5 LABEL "WORK DIR " GOTO Work 

£30 ON KEY 6 LABEL "BACKUP" GOTO Backup 

140 ON KEY 7 LABEL "PROGRAM LISTINGS” GOTO Directory 

150 ON KEY 8 LABEL "EXIT MENU” GOTO Exit 

160 ! 

170 PRINT "HPS000 Series 300 Computer Data Acquisition System" 
180 PRINT 

130 PRINT “Item: Select Function Key" 
200 PRINT 

210 PRINT " Turbocharger Lab (*) Fi” 

220 PRINT " Transonic Compressor Lab (*) F2” 

230 PRINT “ Turbine Design Programs (*) F3" 

240 PRINT “ Multi-Programmer Opertion (HP6944A) F4" 

250 PRINT “ Work directory (*) Fo” 

260 PRINT " Backup Files F6" 

270 PRINT ” HP9000 Program Listing and Information F7" 

280 PRINT " Exit Menu Fg" 

290 PRINT 

300 PRINT “Note: Binaries required for HP14753A CAT program are loaded" 
310 PRINT ” to operate the HP6S44A Multi-programmer.” 

320 PRINT " Additional binaries are loaded with selection (*).” 
330 PRINT 

340 PRINT ” If Error 2 occurs: Memory overflow: reboot system using” 
350 PRINT " SYSBOOT statement and reselect desired directory.” 
360 t 

370 Hold: ! 

380 GOTO Hold 

330 Turbo: ! 

400 GOSUB Load_add_bin 

410 MASS STORAGE IS "/TURBINE” 

420 LOAD "“TURBO_MENU”, 10 

430 Compressor: ! 

440 GOTO Hold 

450 Design: ! 

460 GOSUB Load_add_bin 

470 MASS STORAGE IS "/DESIGN" 

480 LOAD "DESIGN_MENU”, 10 

4S0 Hp6S44a: ! 

500 CLEAR SCREEN 

510 MASS STORAGE IS "/HP6944A” 

520 LOAD "HP6944A_MENU", 10 

530 Work: ! 

540 GOSUB Load _ add bin 

550 MASS STORAGE IS "/WORK" 

560 GOTO Exit 

570 Backup: ! 

580 LOAD "/UTIL/BACKUP” , 10 

590 GOTO Exit 

600 Directory:! 

610 MASS STORAGE IS "/WORKSTATIONS” 

620 LOAD "DIRECTORY", 10 

630 GOTO Exit 

640 Load_add bin:! 

650 LOAD BIN "/WORKSTATIONS/BINS. 1/GRAPHX” 
Figure D2 TPL Program: AUTOST 
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660 LOAD BIN "/WORKSTATIONS/BINS.1/TRANS" 
670 LOAD BIN "/WORKSTATIONS/BINS.1/XREF" 
680 LOAD BIN "/WORKSTATIONS/BINS.1/SERIAL" 
690 LOAD BIN "/WORKSTATIONS/BINS.1/COMPLEX" 
700 RETURN 

710 Exit:CLEAR SCREEN 

720 END 
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FILE NAME: "“TURBO1" 

DISK LABEL: "/TURBINE” 

DESCRIPTION: 

THIS PROG RECORDS AND REDUCES 

RAW DATA FOR THE T-18A40 TURBO-CHARGER 

AS SET UP IN APRIL/MAY 1980 (RESET AUG 1991) 
CHAN & PORT DESIGNATIONS ARE UNIQUE 


t 

] 

! 

! 

! 

t 

{ 

] 
{VARIABLES FOR S/V SECTION 
V=DESIRED S/V 

P=PRESENT S/V PORT 

{VARIABLES FOR TEMP SECTION 
SS=SCANNER LISTEN CODE 

S=SCANNER # 

C=CHANNEL 

V=DVM READING 

! AUTHOR: TERRY EARGLE 

' DATE: JUL 79 (MOD MAY 80 BY M.J. KAISER) 
! MODIFIED BY MIKE JEDWAB 1987 

! MODIFIED BY KELLYHARRIS/ALAN MCGUIRE 1984 
! MODIFIED BY RICK WENDLAND AUG 1991 

i] 
! 
i] 
! 
! 
! 
! 


PROMPTS ADDED> ATMOSPHERIC PRESS. 

RAW AND REDUCED DATA FILES USE DATE_RUN# CONTEXT IN THEIR NAME. 
REDUCTION CHANGED TO USE A MEASURED STATIC PRESS FOR TURBINE 
PRESSURE RATIO, I.E. INPUT STAGNATION PRESS, OUTPUT STATIC PRESS. 


SCANIVALUE #1 SET TO ADVANCE ONLY! !titttt! 
CLEAR SCREEN 
PRINTER IS CRT 
DISP “PLEASE WAIT WHILE RESETTING SCANIVALVE" 
Vai 
A=1 
GOSUB Read 
PRINT “DATA RUN FOR A TURBO-CHARGER” 
PRINT 
DIM X(20),Y(6),Q(8) ,.M(23),T(19),2(20) ,AS(14) ,BS(14) 
E1=1 {Sets first record #=1 
INPUT “STORING DATA ? (YES#1 NO=-0)",Gi 
INPUT “ENTER MONTH, DAY, YEAR" ,X(3),X(5),X(7) 
PRINT USING.» K,DD.°"/"" DD. °"/"".DD"-"“DATE OF RUN: “.X(3),X(5),.4%@) 
INPUT “ENTER RUN #:",X(9) 
IF Gi=0 THEN 510 
AS="RAW_"&VALS (X(7) )&VALS(X(3) J@VALS (X(5) )&"_"&VALS(X(9) ) 
BS="RED_"“&VALS(X(7) )&VALS(X(3) )&VALS(X (5) )&"_"&VALS(X(9) ) 
CREATE ASCII AS&":,700,0,1",10 tCreatea raw data file 
CREATE ASCII BS&":,700,0,1",10 {Creates reduced data file 
ASSIGN @Pathl TO AS&":,700,0,1" 
ASSIGN @Path2 TO BS&":,700,0,1" 


PRINT “RAW DATA FILE NAME: ":AS 

PRINT “REDUCED DATA FILE NAME: ";BS 

X(11)=1 {Sets first datat point #=1 

GOTO 600 

GOSUB Save 

FOR I=2 TO 20 STEP 2 !'Reset X(*) for pressures to zero 
X(I)=0 

NEXT I 

FOR I=#1 TO 5 !Reset Y(*) for temp & RPM to zero 
Y(I)=0 

NEXT I 


PRINT USING “/,K,2D,4X,K,2D";"RUN #",X(9), "DATA PT #",X(11) 

GOSUB 1130 

| w¥wwwww RECORD PRESSURES RHE HHHRAHRAHHKRHARHAHHARAHAWHHAAHRHAHAHAHARAHRHRAKHAKRA WTA 
OUTPUT 722;"FIRIMOZ1IS6STGISTIT3"!Sets-up HP3456A DVM 

V=i1 'Scanivalve #1 designated 
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650 S$=1 1HP3495A Scanner #1 designated 

660 PRINT USING “"/,5X,K,DDD,/,2X,K,8X,K";"SCANIVALVE #",V,"PORT’,"IN. H20" 
670 FOR Awl TO 10 'Read scanivalve port values 

680 GOSUB 970 

690 WAIT 1.5 


700 OUTPUT 701;"C”" {Clears Scanner #1 

710 OUTPUT 701 USING "DDD"; V+9 (Scanner #1 set to read Scaniv port 
720 TRIGGER 722 'Trigger DVM 

730 ENTER 722;V0 'Read Scaniv port data from DVM 

740 A2*A*2 

750 X(A2)=V0O*100000 !Save Scaniv port reading in X(*) 
760 PRINT USING "2X,DDD,7X,7D.D";P,X(A2) 

770 NEXT A 

780 OUTPUT 701;"C” 'Clear scanner 1 

790 GOSUB 1520 

800 PRINT sp a ee 
810 DISP “PLEASE WAIT WHILE RESETTING SCANIVALVE” 

820 A=1 

830 V=1 


840 GOS!"B Read 

850 INPUT "RETAKE SAME DATA POINT? (1"YES O-NO)",U1 

860 IF Uiw=1 THEN 540 

870 IF Gl=0 THEN 890 

880 GOSUB Save 

890 INPUT “COLLECT ANOTHER DATA POINT? (1=YES 0=NO)",R 

900 X(11)#X(11)+1 tIncrement data point number 

910 IF R=1 AND Gl=0 THEN 540 

920 E1"E1+1 

930 IF R=1 THEN 540 

$40 GOTO 2650 

950 {*#eeee END OF MAIN PROGRAM *8 te ee eee area ee eeeeAeAeAA AAA HHRHHARAARHRHKHE 
960 f 

370 { etexeeae SUBROUTINE READ AND POSITION S$/V¥ PORTS RARRRRARKRKRAKRKRKRAKRKRKRKRRKRKRKRER 
980 [>>>>>>SCANIVALVE #1 HAS INOP HOME FEATURE<<<<<<ccceeeededcccececdececeecece 
980 Read: OUTPUT 707 USING "$,K";V - 

1600 POQ="=SPOLL(707) 

1010 L=BINAND(PO,15) 

1020 T1="=ROTATE(PO, 4) 

1030 Mi1=BINAND(T1,7) 

1040 Pe10*M1+L 

1050 CLEAR 707 

1060 IF PA THEN Finish 

1070 OUTPUT 701:"C” 

1080 OUTPUT 701 USING "DDD";V-1 

1090 OUTPUT 701;"C" 

1100 WAIT .1 

1110 GOTO Read 

1120 Finish: RETURN ‘ 

1130 { *eeeeeSUBROUTINE TO BARO PRESS & TEMPERATURES RRARRAARARAERRRARAARHRARARAKRARKAE 
1140 OUTPUT 701;"C” !Clear scanner 1 

1150 OUTPUT 722;"F1R1M0Z1T3” {Sets-up HP3456A DVM 

1160 t>>>>>> BARO PRESS IS MANUAL INPUT <<<<<<<cedcdededddddeddcdedddecdddddccdccccdd 
1170 INPUT "ENTER BAROMETRIC PRESSURE IN INCHES AG” ,X(1) 

1180 !{ INPUT “ENTER RPM" ,Y(6) 

1190 OUTPUT 705; INAU1SM1" tSets-up HP5335A Counter 

1200 ENTER 705;H2z Collect data from counter 

1210 Y(6)=Hz*60 

1220 PRINT USING "/,K,6D.DD,10X,K,6D,/";"BAROMETER(IN. OF HG)=",X(1),"RPM=",Y(6) 


1230 S=2 'HP495A Scanner #2 designated 

1240 PRINT USING "5X,K,DD,/,2X%,K,8X,K"; "SCANNER #",S, "CHAN", “TEMP (R)” 
1250 FOR C=#1 TO 5 !Collecting temperatures (chls 1-5) 
1260 OUTPUT 708;"C" 

1270 OUTPUT 708 USING "DDD";:C {Scanner #2 

1280 TRIGGER 722 !Trigger DVM 


1290 ENTER 722;V 
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1300 
1310 
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1580 
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1610 
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T(C)=V (Storing temperatures in T(*) 
NEXT C 
FOR C=25 TO 26 
OUTPUT 708:"C" 
OUTPUT 708 USING "DDD";C 
TRIGGER 722 
ENTER 722;V 
T(C-7)=V 
NEXT C 
OUTPUT 708;"C" 
CLEAR 722 
T(6)#T(3) 
T(7)@T¢S) 
T(3)#T(2)+T(18) 
T(5)=T(4)+T(19) 
FOR C1 TO § 
Y(C)=FNT(T(C)*1000)+460 !Converts temp to deg Rankine 
PRINT USING "2X,DDD,8X,6D.D";C,Y(C) 
NEXT C 
RETURN 
| Reha Reheheiel SUBROUTINE FOR DATA REDUCTION RHRAEHHHHHHHHRHRAEHHHAHKHAHHHKRRAKHKRKRKRKRKRKE 
! TURBINE STATIC OUTLET PRESSURE WAS CHANGED FROM 
ATMOSPHERIC TO A VALVE MEASURED IN THE TURBINE OUTLET FLOW 


(Collecting temp (chls 25-26) 


'Scanner #2 
'Trigger DVM 


(Storing temperatures in T(18),T(19) 


VARIABLES FOR THIS SECTION 
M IS STORAGE ARRAY 
Q=eMATRIX OF PRESS(IN. OF HG) 
M(1)="TURBINE HEAD(DELTA P ORIFICE) 
M(2)=COMPRESSOR HEAD(DELTA P COMPRESSOR) 
Y1"ORIFICE EXPANSION FACTOR( TURBINE) 
Y2=ORIFICE EXPANSION FACTOR( COMPRESSOR ) 
K1=DISCHARGE COEF FOR FEED ORIFICE (TURB) 
K2=DISCHARGE COEF FOR FEED ORIFICE (COMP) 
C9=C SUB P FOR AIR= 0.24 
C8=CONV FACTOR BIU->HP 
C7=(GAMMA-1/GAMMA) WITH GAMMA=1.4 
Z1I=ORIFACE FACTOR (TURB) 
Z2=ORIFACE FACTOR (COMPRESSOR ) 
A3*ALPHA FACTOR (THERMAL) IN FLOW EQN (TURB) 
AS5=ALPHA FACTOR (THERMAL) IN FLOW EQN (COMP) 
K3=FACTOR IN FLOW EQN (TURB) 
K4=FACTOR IN FLOW EQN (COMP) 
F1=FIRST ITERATION OF FLOW RATE (TURBINE) 
ITERATION OF FLOW RATE (COMPRESSOR ) 


M(3)=TURB 
M( 4) =COMP 
M(5)=TURB 
M(6)=COMP 
M(7)=TURB 
M(8)=COMP 
M(9)=TURB 


FLOW RATE 

FLOW RATE 

HP 

HP 

PRESS RATIO (IN/OUT) 

PRESS RATIO (IN/OUT) 
EFFICIENCY (TOTAL-STATIC) 


M(10)=COMPRESSOR EFFICIENCY (TOTAL-TOTAL) MJ 
TO*REF TEMP (518.7 DEG R) 


M(11)=#SQRT OF THETA (TURB) 


(TCIN)/TCREF))°0.5 


M(12)*SQRT OF THETA (COMP) 
DO=REF PRESS (29.92 IN. HG) 


M( 13) REF 
M(14)=REP 


PRESS RATIO (TURB IN/REF) 
PRESS RATIO (COMP IN/REF) 


TURB FLOW RATE 
COMP FLOW RATE 
TURB RFM 


M(15)="REF 
M(16)=REF 
M(17)=REF 


! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! F2"FIRST 
! 
! 
! 
! 
! 
! 
! 
: 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 


M(18)=REF 
M(19)=REF 
M(20)=REF 


COMP REM 
TURB HP 
COMP HP 


M(2Z1)=DELTA TEMP(TURB) 


JHeNsas ek 
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1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
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2120 
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2140 
2150 
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2170 
2180 
2190 
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2300 
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2340 
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2370 
2380 
2390 
2400 
2410 
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2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 


! M(22)=*DELTA TEMP(COMP) 
! M(23)=HEAD COEFFICIENT 

MAT Q= (0) 

FOR I#6 TO 20 STEP 2 

Q(I/2-2 CCX C1) -X(2)) *.07355)+4X(1) 
NEXT I 

M(1)™X(6)-X(8) 

M(2)™X(14)-X(16) 

Yiet-.025°MC1)/QC1) 

Y2e1- .02581*M(2) /QC(5) 

K1=1.4405 

K2=. 83094 

C9=.24 

C8=1. 414836364 

C7=. 2857142857 
Z21#1.9+C9*(((¥(1)-460)/100)-1) 

2281. 9+C9*(((¥(4)-460)/100)-1) 
A3=1+.002044*( (¥(1)-528)/100) 
A4=1+.002044*( (Y(4)-528)/100) 

K3= 00327673 

K4=.0015472 
F1=*K1*A3*Y1*SQRT(ABS(Q(1)*M(1)/Y(1))) 
F2*K2*A4 *Y¥2*SQRT (ABS(Q( 5) *M(2)/Y(4))) 
M(3)=F1/2*(1+SQRT(ABS(1+4*K3*Z1/F1))) 
MC 4) =F2/2*(1+SQRT (ABS (1+4*K4 *Z2/F2) )) 
M(21)=Y¥(2)-Y¥(3) 

M(22)#Y(5)-¥(4) 

M(5)=M(3) *C9*M( 21) *C8 

MC 8) =M¢ 4) *C9*M( 22) *C8 

M(7)=Q(3) /Q(4) 

M(8)=Q(8)/Q(7) 

MC9)=(M(21) /¥(2))*(€1/(1-(QC4)/Q(3) )°C7) )*100 
MC 10 )*¥(4)/M(22) *( (M( 8) °C7)-1)*100 
TO=518.7 

M(11)*SQRT(Y(2)/TO) 
M(12)=SQRT(Y¥(4) /TO) 

DO=29.92 

M(13)=Q(3)/D0 

M(14)=Q(7)/D0 

MC 15)=M(3)*M(11) /M(13) 

MC 16) =M( 4) *M(12) /M(14) 

M(17)=Y(6) /M(11) 

M(18)=¥(6)/M(12) 

MC 19)=MC5)/(M(13)*M(11)) 

MC 20 )=M(8) / (MC 14) *M(12)) 
M(23)=#12872868*Y(2) /Y¥(8)~2*(1-(Q( 4) /Q(3) )“C7) 
PRINT 

PRINT 

PRINT “REDUCED DATA:” 

PRINT 

PRINT "HEAD COEFFICIENT=" ;M(23) 

PRINT USING "/,8X,K"; "HP FLOW DELTA PRESS EFF FLOW RPM HP" 
PRINT USING "17X,K"; "RATE TEMP RATIO (REF ) (REF) (REF)" 


{PRINT "KKKK_XXXXX.X_XXXXXK. XXK_XXKKKK. X_AXKXKKK. XXK_XXXKKK. X_XAXXXK. XXX _XKKKXX_NKKXX. X" 
PRINT USING "/,K,X,5D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D,X, 5D.D"; "TURB"” ,M(5) ,M(3) 
PRINT USING "/,K,X,5D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D.D,X,6D.3D,X,6D,X, 5D.D"; "COMP" ,M(6) .M(4) 


! 
RETURN 

{wwee SUBROUTINE TO SAVE DATA POINT ON HARD DRIVE :,700,0,1 *?¥*rarnnnnnn 
Save: OUTPUT 8Path1;A3 

OUTPUT §8Path1;El1 

OUTPUT @Path1:X(*),Y(*),T(*) 

OUTPUT 8Path2;BS 

OUTPUT @Path2;E1 

OUTPUT @Path2;:M(*) 
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2620 RETURN 

2630 REM**** END OF SUBROUTINES ***** 4A WAWWH HH AA AHHH NANA 
2640 |! 

2650 LOAD “TURBO LAB", 10 

2660 END 

2670 |! 

2680 REM**** FUNCTION FOR TEMPERATURE COMPUTATION KWHAKKKHKKAHKH KHANH HAHAH aa 
2690 DEF FNT(V) 

2700 $1#392.1444+35.77*V-.4518*V"2 

2710 S$2=#33.252+394 . 86*V- .1855*V" 2 

2720 IF S$1<100 THEN 2740 

2730 S1=S2 

2740 RETURN S1 


2750 FNEND 
2760 REM**** END OF USER DEFINED FUNCTIONS ***¥ etek wwe rw we ee 
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! PROGRAM: TURBO2 (OLD TURBO3) 
! MODIFIED BY: R. SHREEVE 10/8/86 
! R. WENDLAND, LCDR, USN, 9/17/91 
CLEAR SCREEN 
DIM X(20), (6) ,1.(19) ,IS(12) ,OS(121,,US{14) 
INTEGER E1 
PRINTER IS CRT 
INPUT "ENTER RAW DATA FILE NAME:",US 
INPUT "ENTER DATA POINT RECORD NUMBERS (LOW, HIGH):",A,B 
INPUT "DO YOU WANT TO DISPLAY RESULTS TO SCREEN OR PRINTER (SCREEN=0 PRINTER=1)?7",R 
IF R=0 THEN 130 
PRINTER IS 711 
ASSIGN @Path TO US&":,700,0,1" 
ON END @Path GOTO Continuel 
GOSUB Read 
IS=" INLET” 
OS=" OUTLET" 
PRINT "92a - nnn nnn nnn nn nn nn nn nn nnn nnn nr ne nnn ee eo oe oe == 
PRINT TAB(23);"CUMMINS TURBOCHARGER MEASURED DATA" 
PRINT 9 222 nn nn nn nn nn rn nn nn nn on nn ne ee = ‘ 
PRINT USING "16X,K,DD,19X,K,DD,K,DD,K,DD";"RUN #”,X(9),"DATE: ",X(3),°/",X(5),"/",X(7) 
\9:0 4) ) Ut " 
PRINT USING "/,/,27X,K";"PRESSURES (IN. H20 GAUGE)" 
PRINT USING "20X,K,5X,K";"| | ORIFICE | TURBINE | NOZZLE","| COMPRESSOR" 
PRINT "POINT TARE CALIB. |";TAB(36);"/";TAB(51);"|";TAB(66);:"]" 
PRINT USING "K,14X,K,K,K,K,K,K,K,K";" NO. ",I$,08,I$,0$,I$8,08,I$,0$ 
PRINT USING "10D,6D,8D,7D,8D,7D,8D, 7D, 8D,8D";1,2,3,4,5,6,7,8,9,10 
PRINT ("929999 nn nn nn nn nn nn nnn nn nnn nnn nnn nnn nnn nnn ee- 
Printl: IF E1<A THEN Loopl 
PRINT USING “3D,6D.D,5D.D,6D.D,5D.D,6D.D,5D.D,6D.D,5D.D,6D.D,5D.D";X(11),X(2),X(4),X(6),X(8) 
IF El1=B THEN Continuel 
Loopi:GOSUB Read 


GOTO Printl 
COMELWUG Ls  ERINCL © 9939 98a = 9 a eo ee 
ASSIGN @Path TO US&":,700,0,1" 
ON END @Path GOTO Continue2 
E1=0 
GOSUB Read 
IS” INLET” 
OS=" OUTLET” 
PRINT USING "/,/,47X,K";"TEMPERATURES (DEG-R)" 
PRINT USING "28x,K";"|” 
PRINT USING "K,5X,K,4X,K,10X,K,6X,K,7X,K,4X,K"; "POINT", "RPM","ATM. PRESS J “[" "TURBINE? 3 
PRINT USING "K,15X,K,K,K,K,K";" NO.";"(IN.HG) ORIFICE” ,IS,0$,IS,0$ 
PRINT USING “23X,11D,11D,10D,11D,10D";1,2,3,4,5 
Ee a ee ee a ee 
Print2: IF E1<A THEN Loop2 
PRINT USING "3D,11D,8D.DD,9D.D,9D.D,8D.D,9D.D,8D.D";X(11),Y¥(6),X¢1),¥¢1),¥(2), ¥(3),Y€4), YS) 
IF El=B THEN Continue2 
Loop2:GOSUB Read 
GOTO Print2 


520 Continue2: PRINT “20000020 20 009 920 ee 08 eee ne cn een een en nnn ses enna anne oe enna ena ==== 
PRINT TAB(21);"NOTE: CHANNEL AND PORT NUMBERS INDICATED” 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


GOTO 
Read: 


Hold 
ENTER @Path;AS 


ENTER @Path;E1 
ENTER @Path; X(*) 
ENTER @Path; Y(*) 
ENTER @Path;T(*) 
RETURN 


Hold:DI 


PAUSE 


SP "F2 TO CONTINUE” 


PRINTER IS CRT 


LOAD 


“TURBO LAB", 10 
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10 { PROGRAM: TURBOS (OLD TURBO4) 

20 ! MODIFIED BY: R. SHREEVE 10/8/86 

30 ! R. WENDLAND, LCDR, USN, 93/20/91 

40 CLEAR SCREEN 

50 DIM X(20),Y(6),T(19),M(23),US(14] ,VS(14] 

60 INTEGER E1,E2 

70 PRINTER IS CRT 

80 INPUT "ENTER RAW DATA FILE NAME:",US 

90 INPUT "ENTER REDUCED DATA FILE NAME:",VS 

100 INPUT "ENTER DATA POINT RECORD NUMBERS (LOW, HIGH):"”,A,B 
110 INPUT "DO YOU WANT TO DISPLAY RESULTS TO SCREEN OR PRINTER (SCREEN=0 PRINTER=1)?",R 
120 IF R=0 THEN 140 

130 PRINTER IS 711 

140 ASSIGN @Pathl TO US&":,700,0,1" 

150 ASSIGN @Path2 TO VS&":,700,0,1" 

160 ON END @Pathl1 GOTO Continuel 

170 ON END @Path2 GOTO Continuel 

180 GOSUB Read 


190 PRINT "----------------------------- 2-2-2 2-222 22 22 2 on nn nnn en nn ee oo 22-22 === 
200 PRINT TAB(23);"CUMMINS TURBOCHARGER CALCULATED DATA" 
2100 PRINT "w- ~~ nnn n nnn nnn nn nn nnn nn nnn nnn nnn nn nnn nnn ne nn nnn nn nn nnn nnn nnn en cnr ncn nerec eee : 


220 PRINT USING "16X,K,DD,19X,K,DD,K,DD,K,DD";"RUN #",X(9), "DATE: ",X(3),"/",X(5),"/",X(7) 
230 PRINT "-------------------------- -- +--+ 2-2-2222 oe enn ee nn nn nn nn nen nee eee 2-2 = 
240 PRINT USING "/,/,32X,K";"TURBINE DATA” 


250 PRINT USING "SX,K";"POINT PRESS REF REF HP REF HEAD EFF" 
260 PRINT USING "10X,K";"NO. RATIO —- REM FLOW HP COEFF (2)" 

270 PRINT USING "16X,K,9X,K";"(P6/P5S)","(LBM/SEC)" 

280 PRINT USING "10X,K";" M(7) M17) M(15) M(5) M(19) M(23) M(9)" 

290) 0 PRINT "---------------- ~~ = 2 n= nn nn nn nnn nn nnn nnn nn nnn nn nn nn nen nn ne nnn eee ne : 


300 Printi: IF E1<A THEN Loopl 

310 PRINT USING "9X,3D,8D.2D,9D,5D.3D,6D.2D,5D.2D,3D.3D,5D.D":X(11),M¢7) ,MC17) ,MC15) ,MC5) ,M(19), 
320 IF £1-B THEN Continuel 

330 Loop1:GOSUB Read 

340 GOTO Printi 

Ct Ge Nk G0 oa = == 0 0 8 00 8 8 0 ee ew SS es 2 = 2 = = === === === -= 
360 ASSIGN @Path1 TO US&": ,700,0,1" 

370 ASSIGN @Path2 TO VS&": ,700,0,1" 

380 ON END @Pathl1 GOTO Continue2 

390 ON END @Path2 GOTO Continue2 

400 E1=0 

410 GOSUB Read 

420 PRINT USING "/,/,30X,K"; "COMPRESSOR DATA" 


430 PRINT USING "9X,K";"POINT PRESS REM REF REF HP REF = EFF" 
440 PRINT USING "10X,K";"NO. | RATIO REM FLOW HP 1s 

450 PRINT USING "15X,K,18X,K";"(P10/P9)", "(LBM/SEC)" 

480 PRINT USING “10X,K";” M(8) M(18) M(18) M(6) (20) M(10)" 

470 PRINT "-----------------------------------------------------------------------+-------- 2 


480 Print2: IF E1<A THEN Loop2 

490 PRINT USING "9X,3D,6D.2D,9D,8D,4D.3D,5D.2D,4D.2D,4D.D";X(11) ,M(8) ,Y(6) ,M(18) .M(16) ,M(6) .M(20) 
500 IF E1#B THEN Continue2 

510 Loop2:GOSUB Read 

520 GOTO Print2 

(NEI DG a a eh a aa a a a a nl al na 
540 GOTO Hold ; 

§50 Read: ENTER &Path1;AS 

560 ENTER @Path1;E1 

570 ENTER @Path1;X(*) 

580 ENTER @Path1;Y(*) 

590 ENTER @6Path1;T(*) 

600 ENTER @Path2;BS 

610 ENTER @6Path2;E2 

620 ENTER @Path2;:M(*) 

630 RETURN 

640 Hold:DISP "F2 TO CONTINUE" 

650 PAUSE 
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660 PRINTER IS CRT 
670 LOAD “TURBO_LAB", 10 
680 END 
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10 !Program: TURBO4 Plots data from designated ASCII files to the CRT or Printer 
20 !Developed: by R. Wendland, LCDR, USN, 22 Sept 1991 

30 ! 

40 DIM TitleS(50],X_lLabelS(50],Y_lLabelS(50) ,Red_fileS(14} ,M(23),Datal(1:20,23),Data2(1:20, 23) 
50 CLEAR SCREEN 

60 KEY LABELS OFF 

70 PRINTER IS CRT 

80 t 

90 (age oecewerking macrix Data: sceresesn=cecenecocensasaseccescnworeress-= 
100 Load_matrix: 1! 

110 INPUT “Number of plota per graph (1 to 3):",Num_plots 

120 FOR K=1 TO Num_plots 

130 INPUT "Enter reduced data file name:",Red_ fileS 

140 PRINT "Data file #";K;": ";Red_ fileS 

150 ASSIGN @Path TO Red_fileS&":,700,0,1" 

160 ON END @Path GOTO 410 

170 I=1 

180 Read: ENTER @Path;AS 

190 ENTER @Path;E1 

200 ENTER @Path;M(*) 

210 SELECT K 

220 CASE 1 


230 FOR J=0 TO 23 
240 Datal(I,J)=M(J) 
250 NEXT J 

260 Di=Ditl 

270 CASE 2 

280 FOR J=0 TO 23 
290 Data2(I,J)=M(J) 
300 NEXT J 

310 D2=D2+1 

320 CASE 3 

330 FOR J=0 TO 23 
340 Data3(I,J)=M(J) 
350 NEXT J 

360 D3=D3+1 

370 END SELECT 

380 I=I+1 

390 GOTO Read 

400 I=0 

410 NEXT K 

420 ! 

430 Pee ec iO. kU.ADn De Tame CMT S° Goo m oo ao ae a aK SS ees = 


440 Graph_parameter: |! 
450 INPUT "Enter graph title:”,TitleS 


460 -PRINT "Graph title: ";TitleS 
470 INPUT “Enter X-axia label:",X_ labelS 
480 PRINT "X-axia label: ";X_labelS 


490 INPUT “Enter Y-axis lLabel:",Y labelS 

S00 PRINT "Y-axis label: “;Y_labelS 

$10 INPUT "Enter X-axis and Y-axis M-values( M(x) ,M(y) ):",%,Y 
520 FOR K=1 TO Num plots 

$30 SELECT K 

540 CASE 1 


550 PRINT 

560 PRINI “Data file '#*:K:-":" 

570 PRINT X_labelS;TAB(25);Y_lLabelS 
$80 FOR I#1 TO Dl 

590 PRINT Datal(I,X),Datal(I,Y) 
600 NEXT I 

610 CASE 2 

620 PRINT 

630 PRINT “Data file #@°-K:":" 

640 PRINT X_labelS;TAB(25);Y_labelS 
650 FOR I=1 TO D2 
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660 PRINT Data2(I,X),Data2(I,Y) 


670 NEXT I 

680 CASE 3 

690 PRINT 

700 PRINT “Data file #";K;":" 

710 PRINT X_labelS;TAB(25);Y_labelS 

720 FOR I=1 TO D3 

730 PRINT Data3(I,X),Data3(I,Y) 

740 NEXT I 

750 END SELECT 

760 NEXT K 

770 INPUT “Enter Xmin, Xmax, Ymin, Ymax:”,Xo,Xf,Yo,Yf 
780 ! 

790 Pee== (Graph (a8te 9899999 ne ee ee ee ee ee 


800 Graph_data: ! 

810 CLEAR SCREEN 

820 GINIT tInitialize graph routine 

830 Xso0=Xo ! Initislize all scaling variables 
840 Xsf=Xf 

850 Yso=Yo 

860 Ysf=-Yf 

870 Xs_range=Xsf-Xso 

880 Ys_range*Ysf-Yso 

890 Xscale=l 

900 Yscale=1 

910 IF Xs_range<1000 THEN 
920 Xs_range=Xs_range*10 
930 Xscale=Xscale*10 

940 GOTO 910 


Scale up graph variables for mininum of 
of 1000 units of resolution across x-axis 


-—_- 


$50 END IF 
960 IF Ys_range<1000 THEN { Scale up graph variables for mininum of 
970 Ys_range"Ys_ range*10 ! of 1000 units of resolution across y-axis 


$80 Yscale"Yscale*10 

990 GOTO 960 

1000 END IF 

1010 Xso=Xo*Xscale { Finalize all scaling variables 
1020 Xsf=Xf*Xscale 

1030 Yso=Yo*Yscale 

1040 Ysf=Yf*Yscale 


1050 Xs_range=Xsf-Xso {Length of X-sxis 

1060 Ys_range=Ysf-Yso !Length of Y-axis 

1070 LORG 6 !Character ref pt:top center 

1080 MOVE 100*RATIO/2,100 ‘Move cursor to screen loc for labels 
1090 LABEL Title3 !Plot title 

1100 CSIZE 3.5 !Sizes labeling 

1110 MOVE 100*RATIO/2,0 {Move cursor to bottom center screen 
1120 LORG 4 !Character ref pt:bottom center 

1130 LABEL X_labelS X-axis label 

1140 DEG !'Desig degrees for LDIR 

1150 LDIR 90 !Sets Y-axis label on end 


1160 LORG 6 
1170 MOVE 0,50 


1180 LABEL Y_labelS Y-axis lsbel 

1190 LDIR 0 'Reset label to horizontal orientation. 
1200 LORG 2 tChr ref pt: left center 

1210 VIEWPORT 10,90*RATIO,10,90 'Sets graph screen size 

1220 FRAME !Box around VIEWPORT 

1230 WINDOW Xso ,Xaf,Yso,Ysf tSet axis lengths in VIEWPORT 

1240 AXES Xs_range/10,Ys_range/10,Xso0,Yso {Axes intersect st lower left 
1250 AXES Xs_range/10,Ys_rsnge/10,Xsf,Ysf tAxes intersect st upper right 
1260 CLIP OFF !So Labels can print outside VIEWPORT 
1270 CSIZE 3.0,.4 !Axes label size 

1280 LORG & !‘Number X-axis 


1290 FOR I*Xso TO Xsf STEP Xs_range/10 
1300 MOVE I,Yso-.01*Ys_ range 
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1310 LABEL USING “#,K";I/Xscale 

1320 NEAT I 

1330 LORG 8 !'Number Y-axis 
1340 FOR I#Yso TO Ysf STEP Ys_range/10 
1350 MOVE Xso-.01*Xs_range, I 

1360 LABEL USING "#,K";I/Yscale 

1370 NEXT I 

1380 FOR K=1 TO Num _plots 

1390 SELECT K 

1400 CASE 1 

1410 FOR I=1 TO D1 


1420 PLOT Datal(I,X)*Xscale,Datal(I,Y)*Yscale,-2 ! Plots Datal as squares 
1430 PDIR 45 
1440 POLYGON .01*Xs_ range, 4 


1450 NEXT I 
1460 CASE 2 
1470 FOR I#1 TO D2 


1480 PLOT Data2(I,X)*Xscale,Data2(1,Y)*Yscale,-2 ! Plots Data2 as diamonds 
1490 PDIR 0 
1500 POLYGON .01*Xs_range,4 


1510 NEXT I 
1520 CASE 3 
1530 FOR @I=1° TO D3 


1540 PLOT Data3(I,X)*Xscale,Data3(I,Y)*Yscale,-2 ! Plots Data3 as triangles 
1550 PDIR 90 
1560 POLYGON .01*Xa_range,3 


1570 NEXT I 

1580 END SELECT 

1590 NEXT K ; 

1600 IF Plot=0 THEN Hard copy 

1610 DUMP GRAPHICS #711 

1620 GOTO Another plot 

1630 1! 

onl meerd COUY DlOCA Of (rps 62 <== —— == ===" =<— 9499-9 88-28 532555 e == === 
1650 Hard copy: ! 

1660 INPUT "Plot graph: (No#0 Printer=1 Plotter=2)",Plot 

1670 IF Plot=0 THEN Another plot 

1680 IF Plot=1 THEN Graph_data 

en LOUCC emer OUCIN@ © = — ————— == = = = == 9 = = $4 3 Sa a 3 2 3 Ss = - 555 <5 ===5- 
7700 Plotter: ! 

i710 PRINTER IS 712 

1720 Xso=Xo !' Initialize all scaling variables 

1730 Xaf=Xf 

1740 Yso=Yo 

1750 Ysft=¥Yf 

1760 Xs_range=Xsf-Xso 

1770 Ys_range=Ysf-Yso 

1780 Xscale#1 

1790 Yscale=1l 

1800 IF Xs _range<1000 THEN ! Scale up graph variables for mininum of 
1810 Xs_range=Xa_range*10 ! of 1000 units of resolution across x-axis 
1820 Xscale=Xacale*l0 

1830 GOTO 1800 

1840 END IF 

1850 IF Ys_range<1000 THEN ! Scale up graph variables for mininum of 
1860 Ya range=Ys_range*10 ' of 1000 units of resolution across y-axis 
1870 Yscale=Yscale*10 

1880 GOTO 1850 

1890 END IF 

1900 Xaf=INT(Xf*Xacale) 

1910 IF Xsf>16383 THEN ! Readjust graph variables to ensure x-axis 
1920 Xsf=Xsf/10 ! Xsf does not exceed 16383 units 

1930 Xscale=Xscale/10 

1940 GOTO 1910 

1950 END IF 
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1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
* 2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


Ysf=INT(Yf£*Yscale) 

IF Ysf>16383 THEN { Reedjust graph variables to ensure y-axis 
Ysf=Ysf/10 ! Xsf does not exceed 16383 units 
Yscale=Yscale/10 
GOTO 1970 

END IF 

Xao@INT(Xo*Xscale) ! Finalize all scaling variables 

Xs f=INT(Xf*Xscale) 

YsowINT(Yo*Yscale) 

Yaf=INT(Yf*Ysacale) 

PRINT “IN; IP1000, 1000, 9500, 7000; ” ! Set paper size 

PRINT “SC” *Xao0:". “*Xaf:”,":Yso°", ":¥et-":" ! Set X & Y axises lengths 

PRINT “PA";Xso0;",";Yso;";SP1;PD;” 

FOR Xp"Xso TO Xsf STEP (Xsf~-Xso)/10 ! Print X-axis 
PRINT "PA";Xp;",";Yso;";:XT; PU;" 

PRINT "CP-2.4,-1.3;:LB";Xp/Xscale;CHRS(3) 

FRING “PA -Xp:",":¥so-:":PD;" 

NEXT Xp 

PRINT "PU; PA"; Xso+INT(.4*(Xsf-Xso));",";Yso-INT(.078*(Ysf-Yso));";LB";X_labelS;CHRS(3) 

PRINT “PU; PA" ;Xso0;",";:Ysf;";PD:;” 

FOR Xp"Xso TO Xsf STEP (Xsf-Xso0)/10 


PRINT “PAU xXp?, sf Yets > XT: 


NEXT Xp 
PRINT "PU; PA" ;Xso;",";Yso;";PD;” 
FOR Yp=Yso TO Ysf STEP (Ysf-Yso)/10 ! Print Y-axis 


PRINT “PA”";Xs0;",":Yp;":YT;PU;” 
PRINT "CP-6.4,~.3;LB";Yp/Yscale;CHRS(3) 
FRING PA <Xs0°";, "3 Yp:" > FD." ; 
NEXT Yp 
PRINT "PU; PA”; Xso-INT( .09*(Xsf-Xso0));",";YsotINT(.375*(Ysf-Yao) );";DI0,1;LB";¥ labelS;CHRS(3) 
PRINT “PA” ;Xsf;",";Yso;”"; PD" 
FOR YpeYso TO Ysf STEP (Ysf-Yao)/10 
PRINT “PA™<«Xet-",“*Yp:.":YT:” 


NEXT Yp 

PRINT “PU; PA” ;Xsot+INT( .4*(Xsf-Xso0));","; INT(.078*(Ysf-Yso))+Yaf;";DI1,0;LB"; TitleS;CHRS(3) 
FOR K=i TO Num_plots ! Plot data points 

SELECT K 

CASE 1 


FOR I=1 TO Dl 
PRINT "PA"; INT(Datal(I,X)*Xacale);",";INT(Datal(I,Y)*Yscale);";" 
PRINT "UC-3,-4,99,0,8,6,0,0,-8,-6,0,-99;" ! Plots squares for graph #1 
NEXT I 
CASE 2 
FOR I#1 TO D2 
PRINT “PA"; INT(Data2(I,X)*Xscale):",";:INT(Data2(I,Y)*Yscale);";" 
PRINT "UCO,-4,99,-3,4,3,4,3,74,73,74,799;"! Plots diamonds for graph #2 
NEXT I 
CASE 3 
FOR I=1 TO D3 
PRINT "PA"; INT(Data3(1I,X)*Xscale);",";: INT(Data3(I,Y)*Yscele);";" 


PRINT "UC-3,-4,99,3,8,3,-8,-6,0,-99;”" ! Plots trianglea for graph #3 
NEXT I 
END SELECT 
NEXT K 
PRINT “PU; PA";:Xsf:",";Ysf;";" 


PRINTER IS CRT 

{--~= Addition] plots/End of routines ssrse sere ee 
Another _plot: ! 

INPUT "Plot another graph? (Yes=1 No=0)" ,Replot 

Plot=0 

CLEAR SCREEN 

IF Replot=1 THEN Graph parameter 

CLEAR SCREEN 

KEY LABELS ON 

LOAD "“TURBO_LAB", 10 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
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420 
430 
440 
450 
460 
470 
480 
490 
500 





!'Program: SCAN TEMP 
!Description: Reads thermo-couple emf from channels 0-5, converts to 
! degrees F, and prints to CRT. 
'Devices: HP3495A(708), HP3456A(722) 
! 
CLEAR SCREEN 
DUMP DEVICE IS 711 
Brey (5,12:52),1TC5) 
INTEGER Run 
DIM ChannelS(5) [20] 
Channe13(0)="Atmosphere" 
Channel$(1)="Supply Orifice” 
ChannelS(2)="Turbine Inlet” 
Channe1$(3)="Turbine Outlet” 
ChannelS(4)="Compressor Inlet” 
Channel1S(5)="Compressor Outlet” 
' 
PRINT “Turbocharger Lab Temperature Readings." 
an ee 2 2 eee = 686 eee ee ee Ren ee 6 eee Rs eee See = —s-- = 
Run=Runt1 
PRINT 
PRINT “Run number:";Run 
PRINT USING "K,11X,K,3X,K"; "Location", "Channel #"," Temperature (F)" 
PRINT 
OUTPUT 722;:"T3" 
FOR C=-0 TO § 'tReading temperature channels 0-5 
OUTPUT 708 USING “DDD";C 
TRIGGER 722 
ENTER 722;T(C) 
¥(C,1)eC 
Y(C,2)=FNT(T(C)*1000) {User defined function applied 
IF ¥(C,2)<ABS(.1) THEN 
Y¥(C,2)=0 
END IF 
PRINT USING "20A,2X,DD,11X,5D.D”;Channel$(C),Y(C,1),Y(C, 2) 
NEXT C 
CLEAR 722 
INPUT "Enter: 1=Rescan O=Quit",Rescan 
IF Rescan=1 THEN Scan 
LOAD “TURBO_MENU", 10 
END! Seeeeweeerser=== 
!User defined function to convert voltage readings from temperature probes 
'to temperature values in degrees F. 
DEF FNT(V) 
$1*32.1444+35.77*V-.&6518*V"2 
$2=#33 .252+34 .86*V-.1855*V" 2 
IF $1<100 THEN 490 
$1=*S2 
RETURN S1 
FNEND 
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10 {Program: TURBO MENU 

20 'Description: Program provides Function Key menu for program selection. 
30 CLEAR SCREEN 

40 ON KEY 1 LABEL “TURBO1" GOTO Turbol 


50 ON KEY 2 LABEL "“TURBO2" GOTO Turbo2 

60 ON KEY 3 LABEL "TURBO3" GOTO Turbo3 

70 ON KEY 4 LABEL "TURBO4" GOTO Turbo4 

80 ON KEY 5 LABEL "SCAN TEMP " GOTO Temp 

90 ON KEY 6 LABEL " " GOTO Hold 

100 ON KEY 7 LABEL “MAIN MENU” GOTO Main 

110 ON KEY 8 LABEL “EXIT MENU" GOTO Exit 

120 ! 

130 PRINT “Turbocharger Data Acquisition Lab” 

140 PRINT 

150 PRINT “Item: Select Function Key” 
160 PRINT 

170 PRINT " TURBO1: Collect, reduce and Fi" 
180 PRINT " store RAW Data" 

190 PRINT 

200 PRINT “* TURBO2: Tabulate RAW Data F2" 
210 PRINT 

220 PRINT “ TURBO3: Tabulate REDUCED Data F3" 
230 PRINT 

240 PRINT “" TURBO4S: Plot REDUCED Data Fa" 
250 PRINT 

260 PRINT " SCAN TEMP: Scan temperature probs F5" 
270 PRINT 

280 PRINT “ Main Menu F7" 
290 PRINT “* Exit Menu F8" 
300 ! 

310 Hold: ! 


320 GOTO Hold 

330 Turbol: ! 

340 LOAD “TURBO1",10 

350 Turbo2: ! 

360 LOAD “TURBO2",10 

370 Turbo3: ! 

380 LOAD "“TURBO3", 10 

390 Turbo4: ! 

400 LOAD “TURBOS”, 10 

410 Temp: ! 

420 LOAD “SCAN_TEMP",10 
430 Discrepancies: ! 

440 LOAD “DISCREP_DOC",10 
450 Main: ! 

460 MASS STORAGE IS "“/WORKSTATIONS"” 
470 . LOAD "“AUTOST”, 10 

480 Exit:CLEAR SCREEN 

490 END 
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!Title: A_4431T 

tAuthor: R.P. Shreeve (Rev. 12/3/89) 

!Updated: R.A. Wendland (12/12/91) 

!Program: Performance calculations for turbine for varying 

! Alphal. 

t 

CLEAR SCREEN 

DUMP DEVICE IS 711 

KEY LABELS OFF 

DIM A(7,15),B(7,15),C(7,15),R(15),S¢(15),Alphal(15) 

DEG ! All angles in degrees 

INPUT "Print results to CRT or Printer? (CRT#1, Printer=0): ",Crt 
IF Crt#1 THEN 150 

PRINTER IS 711 

=== PiGUCmaeGe Soo 926 a9 = aaa =o Se ee eee sere esse Sees ss sere s=s5 
R9=.08 

P9=1 

Q9-517.8 

PO=2 

P2=1 

TO=560 

U0=800 

H1=14 

! Al=75 ! Program modified for Alphal iteration 
G1=1.4 

G0"32.174 

K9=,98 

NO=35000 

INPUT “Enter R*: ”,RO 

INPUT "Enter Alphal (deg): min, max, step size ==> ",L1,L2,L3 
asese Calculate, needed quantities <---<-<<<-2-<2--<<22-2222<2<-<--<-- 
VOw109.82*SQRT(TO) 

X3=U0/V0 

P4=P2/P0 

R8=R9* (PO/PS)/(T0/Q9) 

i= Calculus Ioer LOLMANGCCS ~- 30 e 99 = 9" eer ee sees er seer n seen 64 e545 s=== 
I=1 

L4=0 

FOR Al#=L1 TO L2 STEP L3 

GOSUB Non_dimension 

T8=T9*TO 

HO=(V0O*V0O/(2*G0) )*T9/ 550 

P1=P3*PO 

T1=S1*T0O 

T2=#S2*TO 

V1=X1*V0 

V2"X2* V0 

W1=X5*V0 

W2=X6*VO0 

WO=H1/HO 

X9=#X1*COS(A1) 

A9=(W0O*144/ (R8*V0) )/(X9*(1-X9°2)°(1/¢(1-G1) )*K9) 

R7=(360*U0)/( PI*NO) 

H9=A9/(2*PI*R7) 

PRINT "R*=":RO; "RM=":R7;"H=":H9; “WO=": WO 

t=--=- Stene Suse in Aree Wn oo So ==—2=sScSseeeSs=s<SSssecs- ess s ee => 
R(I)=RO 

S(IT)#R1 

Alphal(I)#=#Al 

A(1,I)=N1 

A(2,I)=N2 ‘ 
A(3,1I)=HO 

A(4,I)=T8 

A(3,1)=P1 

A(6,I)=2T1 
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660 A(7,1I)=T2 

670 B(1,I)=vi 

680 B(2,1I)=W1 

690 B(3,1I)=Vv2 

700 = BC(4,1)=W2 

710 B(5,1)=Bl 

720 =B(6,1)=-A2 

730 B(7,1)=-B2 

740 8 8=(C(1,1)=21 

750 0 «=606C (2,1) #22 

760 4 C(3,1)=43 

770 = CC 4, I) M4 

780 4 38=606C(5,1)=M5 

790 0 =—-C(6, 1) =M6 

600 C(7,1)=0 

810 I=I+1 

820 L4=L4+1 

830 NEXT Al 

640 l==-== Printvdats S929 e<~ © ae eee a ee ae a ee 

650 PRINT USING "/,K,5D.2D,K,5D.2D,K,6D,K";"PTO=", PO,” P2=",P2," ATO. TTO=",1T0,*> DEGa RK. 
860 PRINT USING "/,K,6D,K,/";"WHEEL VEL.=",U0," FT/SEC." 

670 FOR I#1 TO L4 

660 PRINT USING "K,5D";"ALPHA1=" ,Alphal(I) 

690 NEXT I 

300 PRINT USING ”/ .K,K,K,K,K.K,K.K,K :” ETA, T<S) 3) ETA f-1.* HP/LB |, | DELIW. 3. Pl.” a 
910 FOR I#1 TO L4 

920 PRINT USING "4D.3D,4D.3D,3D.4D,3D.4D,3D.4D,5D.2D, 5D.2D, 5D. 2D, 3D.4D";A(1,I),A(2,1),A(3,1),AC 
930 NEXT I 

940 PRINT USING "/,K,K,K,K,K,K,K,K,K";” Vi, Wig,” V2 W2 ","  BETAL “3 
950 FOR I#1 TO L4 

960 PRINT USING "6D.D,6D.D,6D.D,6D.D,6D.D,6D.D,6D.D, 5D.2D,3D.4D";B(1,1),B(2,1),B(3,1),B(4,1),B¢ 
970 NEXT I 

980 PRINT USING "/,K,K,K,K%,K,K.K,K,K";" ZETA S”," ZETA R”,” MICRIT”,* M2CRIT”,” MRICRIT 7 
990 FOR I=1 TO L4 

1000 PRINT USING "3D.4D,3D.4D,3D.4D,3D,4D,3D.4D,3D.4D,6X,5D.2D,3D.4D";C(1,1),C(2,1),C(3,I),C(4,1 
1010 NEXT I 

1020 GOTO 1410 

1030) 2 te2= >= Subroutine for non-dimension performance calculations ----- 

1040 Non_dimension: |! 

1050 G2=(G1-1)/G1 

1060 G3=SQRT( (G1+1)/(G1-1)) 

1070 T4=P4*G2 

1060 T3=T4+RO*(1-T4) 

1090 P3=T3*(1/G2) 

1100 Y1#1-T3 

1110 Ml=(2/ (Gi-1) )*(CY¥1/C1-Y1)) 

1120) Z1=.1*M1 

1130) =S1#T3+Z1*Y1 

1140 Xi=SQRT(1-S1) 

1150 X4=X1*COS(A1) 

1160 BI=ATN((X1*SIN(A1)-X3)/X4) 

1170 X5=X4/COS(B1) 

1180 T7#S1+X5°2 

1190 T5=#S1*(P4/P3)"G2 

1200 Y6=T7-T5 

1210 M2=(2/(G1-1))*Y6/TS5 

1220 Z2=.2*M2 

1230 S2=T5+2Z2*Y6 

1240 X6=SQRT(T7-S2) 

1250 82=X4/X6 

1260 B2="ATN(SQRT(1-B2*2)/B2) 

1270 A2™ATN((X6*SIN(B2)-X3)/X4) ; 

1280 X2=#X4/COS(A2) 

1290 S3=S2+X2~2 

1300 T9=1-S3 


Figure D9 (cont) TPL Program: A 4431T 
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1310 N1i=T9/(1-T4) 

1320) =P5=P4*(S3/S2)~(1/G2) 

1330 T6=P5°G2 

1340 N2=T9/(1-T6) 

1350 R1i#(S1-S2)/(1-S3) . 
1360 M3=X1*G3 

1370 M4=X2*G3*SQRT(1/S3) 

1380 M5"X5*G3*SQRT(1/T7) 

1390 M6"X6*G3*SQRT(1/T7) 

1400 RETURN 

1410 DISP “Press F2 to exit, press F3 for another run" 
1420 PRINTER IS CRT 

1430 PAUSE 

1440 LOAD "DESIGN _MENU", 10 

1450 END 


bigMse DIO (cont) TPL Program: A 4431T 
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10 ITitle: R_4431T 


20 ‘Author: R.P. Shreeve (Rev. 12/3/83) 

30 !Updated: R.A. Wendland (11/30/3931) 

40 !Program: Performance calculations for turbine for varying 
50 ! theoretical degree of reaction. 

60 ! : 


70 CLEAR SCREEN 

80 DUMP DEVICE IS 711 

90 KEY LABELS OFF 

100 DIM A(7,15) ,BC7,15) ,C(7,15),R¢15),S¢15) 

110 INPUT "Print results to CRT or Printer? (CRT=1, Printer=0): ",Crt 
120 IF Crt=1 THEN 140 

130 PRINTER IS 711 


140 (=32-— ENDUt Ot O fa — 9 9 a a a a a ew ee ee ee ee ae 
150 RS=.08 
160 P9=1 

170 Q9=517.8 
180 PO=2 

190 P2=1 

200 TO=560 
210 U0=800 
220 Hi=14 
230 Al™=75 
240 G1=1.4 


250 GO=32.174 

260 KS= 98 

270 NO=35000 

280 {==--- Calculaté nesded quant! tig ----------—---------------_-_____.- 
290 V0~109.82*SQRT(TO) 

300 X3=U0/VO 

310 P4=P2/P0 

320 R8=R9*( PO/ PS) / (T0/Q9) 


‘330 DEG 

340 ie === CatculAte performance: 2-93 <9 999 9399 9 en er ee 
350 INPUT “Enter R*: min, max, step size”,L1,L2,L3 

360 Il 

370 =6©L4=0 


380 FOR RO=L1 TO L2 STEP L3 

390 GOSUB Non_dimension 

400 T8=T9*TO 

410 HO=(V0O*V0/(2*G0) )*T9/550 

420 P1=P3* PO 

430 T1=S1*T0 

440 T2=S2*TO 

450 V1=X1*V0 

460 V2=X2*V0 

470 W1=X5*V0 

480 W2=X6*V0 

490 WO=H1/H0- 

500 X9=X1*COS(Al) 

510 AS=(WO*144/ (R8*V0) ) / (X9*(1-X9°2)°(1/(1-G1) ) *KS) 
520 R7=(360*U0) /(PI*NO) 

530 H9=A9/(2*PI*R7) 

540 PRINT "R*=";RO; "RM=":R7;"H=":H9;: “WO=” :WO 
550 i - Store data in array mort r rrr errr ttt rr rr errr rrr sssccce 
560 R(1I)=RO 

570 S(1I)=R1 

580 A(1,I)=N1 

590 A(2,I)=N2 

600 A(3,1I)=HO 

610 A(4,1)=T8 

620 A(5,1)=P1 

630 A(6,I)=T1 

640 A(7,1)=T2 

650 B(1,1I)=V1 


Figure Di0 TPL Programe. adem 
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660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
8390 
300 
910 
920 
9330 
940 
950 
960 
970 
980 


B(2,I)=Wl 

B(3,1)=V2 

B(4,1)=W2 

B(3,1)=51 

B(6,I)=-A2 

B(7,I)=-B2 

C(1,1)="2Z1 

C(2,1I)=Z2 

C(3,1)=43 

C(4,1)=M4 

C(5,1)=M5 

C(6,1)=M6 

C(7,1)=#0 

I#I+1 

L4=L4+1 

NEXT RO 

{=--==- Printeanc Qe ————0— 0 6 = == ==. S266 26 = == === == = === = = == ~~ 

PRant VSING (= /,/,/,/;K,00.2D,K,o0.20,K,6D,K°:"PTO8” , PO,” P2= FZ,” AIO. 110=" 10," 
PRINT USING "/,K,6D,K,5D,K";"WHEEL VEL.=",U0," FI/SEC. ALPHA1=",A1," DEG." 

PRENT USING -/./,K, Kon, KKK; Koh h | ETA T-S”,” EIA T-T",” HP/LE “,” DELTW ",” sg a 
FOR i=1 TO L4 

PRINT USING "4D.3D,4D.3D,3D.4D,3D.4D,3D.4D,5D.2D,5D.2D,5D.2D,3D.4D";A(1,1I),A(2,1),A(3,1),AC4 
NEXT I 

PRINT USING */,/,K,K,K,K,K,RK,K,K,K";” 0 Wise V2 No BETA1 ", 
FOR I=1 TO L4 

PRIN? USING “6D.D,6D.D,6D.D,6D.D,6D.D,6D.D,6D.D,5D.2D,3D.4D";BC1,1),8¢2,1),8¢(3,1),8066.1),8¢5 
NEXT I ; 

PRINTSUSING ~/,/,K,K,K,K,K.K,K,K,K°:" ZETA S",” ZETA R”,” MICRIT”,” MZCRIT”,”~ MRICRIT”,“ 
FOR I=#1 TO*L4 

PRINT USING "3D.4D,3D.4D,3D.4D,3D,4D,3D.4D,3D.4D, 8X,5D.2D,3D.4D" ;C(1,1),C(2,1),C(¢3,1),C(4,1) 
NEXT I 

GOTO 1360 

ees Subroutine for non-dimension performance calculations ----- 


990 Non_dimension: ! 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
~1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


G2=(Gl1-1)/G1 
G3=SQRT((G1+1)/(G1-1)) 
T4=P4°G2 
T3#T4+RO*(1-T4) 

P3#"T3~ (1/G2Z) 

Y1#1-T3 
M1=(2/(G1-1))*(Y1/(1-Y1)) 
Z12.1*M1 

$1#T3+Z1*Y1 
X1=SQRT(1-S1) 

X4#X1*COS (Al) 
B1"ATN((X1*SIN(A1)~-X3)/X4) 
X5#X4/COS(B1) 
T7"S1+X5°2 
T5"S1*(P4/P3)°G2 
Y6eT7-TS5S 
M2#(2/(G1-1))*Y6/TS5 

222 .2*M2 

$2=1T5+Z2*Y6 
X6"SQRT(T7-S2) 

B2=X4/X6 
B2=ATN(SQRT(1-B2°2)/B2) 
A2™ATN( (X6*SIN(B2)-X3) /X4) 
X2=X4/COS(A2) 
$3=#S2+X27°2 

T9=1-S3 

N1=T9/(1-T4) 
P5=P4*(S3/S2)°(1/G2) 
T6=™P5°G2 . 
N2=T9/(1-T6) 
R1#(S1-S2)/(€1-S3) 


Figure D1O (cont) TPL Program: R_4431T 
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1310 M3=X1*G3 

1320 M4=#X2*G3*SQRT(1/S3) 

1330 M5=X5*G3*SQRT(1/T7) 

1340 M6=X6*G3*SQRT(1/T7) 

1350 RETURN 

1360 DISP “Press F2 to exit, press F3 for another run’ 
1370 PAUSE 

1380 LOAD "DESIGN_MENU",10 

1390 END 


Figure D10 (cont) TPL Program: R_4431T 
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10 tTitle: TURB3 
20 'Author: R. P. Shreeve (09/01/88) 
30 tUpdated: R. Wendland, LCDR, USN (12/12/91) 


40 !Program: Calculate and draw turbine blade profiles. 
50 ! 
60 DEG 


70 DUMP DEVICE IS 711 

80 CLEAR SCREEN 

90 KEY LABELS OFF 

100 Se aid ENpOtCeGrapnr De@reameLars 93 == 9999s 2922939" s<99<-8sr ser sHs > 2 =e 
110 INPUT "Plotting STATOR or ROTOR? (stator=0, rotor=1): ",Type 

120 IF Type#1 THEN 

130 §=©TypeS="ROTOR"” 


140 ELSE 
150  TypeS="STATOR" 
160 END IF 


170 PRINT "Input axis coordinates for ";TypeS:" blade profile plot:” 
180 IF Type#0 THEN 

190 INPUT "Enter Xa (nominal -1.0): ",Xa 

200 INPUT "Enter Xb (nominal 3.0): ",Xb 

210 Type#1 

220) ELSE 

230 INPUT "Enter Xa (nominal 3.0): ",Xa 

240 INPUT "Enter Xb (nominal -1.0): ",Xb 

250 Type=-1 


260 END IF 
270 Ya=-.2 
280 Yb=@ABS(Xa-Xb)/RATIO+Ya 
290 PRINT 


300 PRINT “Axis coordinates:” 
310 PRINT * Xa = ",Xa . 

320 PRINT " Xb = ",Xb_ 

330 PRINT " Ya = ",Ya 

340 PRINT " Yb = ", Yb 

350 PRINT 

360 {==--- PApUe JUAt Ono anna aa na nn meas a= em ee ners a Soon s<95=-e 
370 PRINT “Enter all angles in degrees." 

380 INPUT "Enter T.E. wedge angle (epsilon): “,El 

390 INPUT "Enter T.E. radius /spacing: ",R8& 

400 INPUT "Enter output relative flow angle (alpha2 or beta2): ",B3 
410 B3=B3*Type 

420 [----- BG) ed ee nn 8 =~ - - = = - = = 
430 A5=COS(B3)-8*R8*(1-B3/90) 

440 A0=COS(B3)-8*R8*(1-ATN(SQR(1-A5°2)/A5)/90) 

450 IF ABS(A0-A5)<.00001 THEN 480 

460 A5=A0 i 

470 GOTO 440 

480 INPUT "Enter inlet rel. flow angle(alphal or betal): ",B2 

490 B2=-B2*Type 

500 INPUT “Enter L.E. radius /spacing (le/S): ",R9 

510 INPUT "Enter L.E. wedge angle (delta): ",D1 

520 INPUT “Enter axial chord/spacing: ",BO 

530 Z20=2* (TAN(B3 )+TAN(B2) )*COS(B3)~2/BO 

540 So=1 

550 B1l=B2-10 

560 IF D1>20 THEN 580 

570 B1=B2-D1/2 

580 G1=B1+D1 

590 A9=(A0+2*R8)/SO 

600 E2#E1/2 

610 A8=A9/(1+TAN(E2)°2) 

620 A8=A8-SQR(A8*2-(A9~ 2-TAN(E2)~2)/(1+TAN(E2)“2)) 

630 A1*ATN(A8/SQR(1-A8~ 2) ) 

640 R1=(BO-R8*(1+COS(A1+E1) )-R9*(1+SIN(B1)))/(COS(A1+E1)+SIN(B1) ) 
650 R2=S0*COS (A1+E1)/SIN(E1)+R8 


Figure Dll TPL Program: TURB3 
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660 E0#1/(1+SIN(G1-A1-E1) ) 

670 FO=(SIN(G1-A1-E1)+COS(D1))/(€1+SIN(G1-A1-E1)) 

680 GO=(2* (COS (D1/2))~2)/(1+SIN(G1-A1-E1) ) 

690 R3*A0*E0O* (COS (G1) *(SIN(A1+E1)-SO/A0)-SIN(G1 ) *COS(A1+E1) )+R1*FO+R9*GO 
700 Darden PRINT DATA (98938933098 99 98 oer ae ee ee 
710 PRINTER IS 711 


720 PRINT 

730 PRINT " Turbine Blade Profile" 
740 Jo) a a a lhe a aN lo 
750 PRINT 

760 PRINT "For Axial Chord = ".BO 

770 PRINT "” Blade Spacing = ":S0 

780 PRINT " Exit. Width = ": AO 

790 PRINT ” L.E. Radius = ":R9 

800 PRINT " Radius = ":R8 


Tee. 

810 PRINT ” L.E. Wedga Angle= ";D1 
820 PRINT “ T.E. Wedge Angle= ";E1 
830 PRINT 

840 PRINT "Dasign Rel. Inlet Flow Angle = ";~-B2*Type 
850 PRINT "Dasign Ral. Outlet Flow Angle = ";B3*Type 


860 PRINT "Zweifal Coefficient =o ": ZO 
870 PRINT 

880 PRINT 

890 PRINT "Calculated Blade Parameters:" 
900 FRiN«: |. _---_-.---.-.- __._ 2. a ae = 
910 PRINT ” Alpha we" Al 

920 PRINT ” Beta = "-Bl 

930 PRINT ” Gamma @ ":G1 

940 PRINT 

950 PRINT ” R1 =» ":R1 

960 PRINT R2 2 *:-R2 

970 PRINT “ - R93 «# ":RY 

980 PRINT 

990 PRINT 


1000 PRINTER IS CRT 

1010 DISP “Press F2 to viaw plot, F3 for new inputs and racalculata values." 
1020 PAUSE 

1030 CLEAR SCREEN 

1040 {=--=-- Calculatté cand Plot datecto CRI screen <---------__-_.-_----__-7s 
1050 ! Graph parametars: 

1060 X_range™Xb-Xa 

1070 Y_range=Yb-Ya 

1080 Dx=10 

1090 Dy=10 

1100 GINIT 

1110 PEN 4 

1120 LORG 6 

1130 MOVE 100*RATIO/2,100 

1140 LABEL TypeS;"” Blade Profiles” 
1150 CSIZE 3.5 ; 

1160 MOVE 100*RATIO/2,0 

1170 LORG 4 

1180 LABEL "Meridian Plane" 

1190 LDIR 90 

1200 LORG 6 

1210 MOVE OG, 50 

1220 LABEL “Chord” 

1230 LDIR 0 

1240 LORG 2 

1250 VIEWPORT 10,95*RATIO,10,95 

1260 FRAME 

1270 WINDOW Xa, Xb, Ya, Yb 

1280 AXES X_range/Dx,Y range/Dy,Xa, Ya 
1290 AXES X_range/Dx,Y_ range/Dy, Xb, Yb 
1300 CLIP OFF 
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1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


CSIZE3.0,.4 

LORG 6 

FOR I=Xa TO Xb STEP X_range/Dy 
MOVE I,Ya-.01*Y range 


LABEL USING “#,MD.DD";I 

NEXT I 

LORG 8 

FOR I#Ya TO Yb STEP Y_range/Dy 


MOVE Xa-.01*X_range,I 
LABEL USING "#,MD.DD";I 
NEXT I 

K1i=0 


T2=-Al 

T3#180-A1-E1l 
T4=(T3-T2)/20 

FOR Tl=T2 TO T3 STEP T4 
X=-R8*SIN(T1) 

Y"R8* (1-COS(T1)) 

PLOT X,Y 

NEXT T1 

== Pressure Side ----- 
X1=- (R1+R8)*SIN(A1+E1 ) 
Y1"=R8+(R1+R8)*COS (A1+E1) 
T2=-90+A1+El 

T3=B1 

T42(T3-T2)/20 

FOR T1#T2 TO T3 STEP T4 
X=-X1+R1*cos(T1) 
Y=Y1+R1*SIN(T1) 

PLOT X,Y 

NEXT T1 

Ue aie Tip Radius ----- 
X4=X1+(R1+R9) *COS(B1) 
Y4=Y1+(R1+R9)*SIN(B1) 
T2=-Bl 

T32180-Gl 

T4"(T3-T2)/20 

FOR Tl#=T2 TO T3 STEP T4 
X=X4-R9*COS(T1) 
Y=Y4+R9*SIN(T1) 

PLOT X,Y 

NEXT T1 

X6=X 

Y6=Y 

PENUP 


X2="- (R2-R8)*SIN(Al1) 
Y2=R8+(R2-R8)*COS(Al) 
T2=0 

TI=#El 

T4"(T3-T2)/20 

FOR Tl#T2 TO T3 STEP T4 
X=X2+R2*SIN(T1+A1) 
Y=Y2-R2*COS (T1+A1) 

PLOT X,Y 

NEXT Tl 

ae Suction Side Radius R3 ----- 
X5@X2+R2*SIN(E1+A1) 
Y5=Y2-R2*COS(E1+Al) 
X3=@X5-R3*SIN(E1+A1) 
Y3=Y5+R3*COS(E1+A1) 
T2=-(90-A1-E1) 

T3=G1 
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1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
20390 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2380 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 


T4=(T3-T2)/20 

FOR Ti=T2 TO T3 STEP T4 

X=X3+R3*COS(T1) 

Y*Y3+R3*SIN(T1) 

IF Y<Y6 THEN 2060 

PENUP 

PRINT 

PRINT “These values give discontinuous slope on suction side 
PRINT 

GOTO 370 

PLOT X,Y 

NEXT Tl 

PLOT X86, Y6 

PENUP 

IF Kiel THEN 2140 

Kiel 

WINDOW Xa-S0O,Xb-SO, Ya, Yb 

GOTO 1430 

{-<--- Area Progression Thru Passage ----- 

WINDOW Xa, Xb, Ya, Yb 

X7#).1+S0 

Y7#Y1 

T2"-(S90-A1-E1) 

T3=B1 

T4=(T3-T2)/20 

PEN 7 

LINE TYPE 5 

FOR Ti=T2 TO T3 STEP T4*2 

X=X7+(R1-A0)*COS(T1) 

Y“¥7+(R1-A0)*SIN(T1) 

PLOT X,Y 

NEXT T1 

DUMP GRAPHICS 

DISP “F2 to continue ” 

PAUSE 

CLEAR SCREEN 

INPUT “Calculate blade number? (1="Yes, O=No): ",NO 

IF NO=0 THEN 2470 

PRINTER IS 711 

INPUT “Enter axial chord (in.): ",B 

INPUT "Enter mean redius (in.): ",RS5 

S=B/BO 
Z1*2*PI*R5/S 
B=B0*S 

A=A0*S 

PRINT 

PRINT “Axial chord 
PRINT “Blede space 
PRINT “Throat width : 
PRINT “Number of bledes 
PRINTER IS CRT 
DISP "F2 to exit, F3 for enother run” 
PAUSE 

LOAD "DESIGN MENU", 10 

END 


Md 


"3B," in." 
ese. AN. 
Wl By « Vet 
°-Z1 
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10 {! Title: TURB4 
20 { Author: R. P. Shreeve (09/01/88) 


30 ! Updeted: R. A. Wendland, LCDR, USN, (12/17/91) 

40 ! Program: Calculete blede height end lossess for given mean 
50 ! line conditions for e single stege axial turbine 
60 ! 


70 DIM 0(3,17) 

80 CLEAR SCREEN 

90 PRINTER IS CRT 

100 DUMP DEVICE IS 711 

110 KEY LABELS OFF 

120 === Design Input Data ~- 92 ee ten cee m ce ccc ccc ccorecccces cess cccororws== 
130 PRINT "Input data from program 4431T:" 

140 INPUT "Entar PtO (psia): ",PO 

150 INPUT "Enter TtO (deg R): ",TO 

160 INPUT “Enter delta Tw (DELTW deg R): ",JO 

170 INPUT "Enter w dot (lbs/sec): ",WO 

180 tooo SASMEL LODO EC 1 Oa ee ne ee er roe See ees Coe oe a 
190 R4253.393 

200 G9=1.4 


210 C9=.24 

220 J9=778 

230 G8=32.174 

240 = ——= Velocity Diagram Date corer eters tes tate eter c ese tet sss esessccse= 
250 DEG 


260 INPUT "Enter Alpha_e (deg): ",L3 

270 INPUT “Enter delta alpha (dag): ",L4 

280 INPUT "Enter Mlcr: ",Ml 

290 INPUT "Enter Beta_e (deg): ",B3 

300 INPUT "Enter delta beta (deg): ",B4 : 
310 INPUT “Enter M’crl: ”,M3 

320 INPUT “Enter M’cr2: ",M4 

330 J-<--- Stator Blade Dataq cree sr esc cr sete cc ces csc croc ccccoseesesesen=- 
340 CLEAR SCREEN 

350 PRINT "Input STATOR blade data from TURB3:” 

360 INPUT “Enter number of blades (z): ",2Z1 

370 INPUT "Enter throat width (a): ",A 

380 INPUT "Enter axial chord (b): ",B 

390 INPUT “Enter blade spacing (S): ",S 

400 INPUT “Enter blada chord (c): ",C 

410 INPUT “Enter trailing edge thickness (ts): ",T7 

420 INPUT "Enter maximum blade thickness (tmax): ",T8 

430 INPUT “Enter tip clearance (delta t): ",T9 

440 === Analysis Of Che’Stator 2993939398432 2 99 ce ee 2a err ese eens === 
450 K=1 

460 CLEAR SCREEN 

470 INPUT "Enter STATOR profila loss (fig 15 (ref: 1174VA1)): “,S1 
480 $9#2*S1 

490 NO=1 

500 X8=M1*2*(G9-1)/(G9+1) 

510 X9=X8/(1-S9) 

520 RO=P0*144/(R4*TO) 

$30 VO=SQR(2*C9*TO*G8*J9 ) 

540 P5"(1-X9)*(G9/(G9-1)) 

550 T5=1-X8 

560 T1=T5*TO 

570 P1=P5*P0 

580 R1=RO*P5/TS 

590 !--- Ra into stator 

600 X6=X8 * (COS (L3)/COS(L3-L4))72 

610 T=1-X6 

620 PeT~ (G9/(G9-1)) 

830 R=RO*P/T 

640 Ji=T*TO 

650 M8=1.153E-5* .06333*SQR(J1)/(198.72/J31+1) 
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660 R9=SQR(X6 ) *VO*R*C/ (M8* 12) 
670 Q8=RO*V0*SQR(X9)*(1-X9)°(1/(G9-1)) 


680 D8=L4 

690 D7#=L3 

700 M=SQR((2/(G9-1))*X8/(1-X8)) 
710 PRINT 

720 PRINT 

730 PRINT "STATOR Blade Analysis:”™ 
740 Prt oe = So — == << 2 => =-=-——— os 
750 PRINT 


760 GOSUB Blading_loss 

770 IF ABS(S9-S6)<.002 THEN 840 

780 PRINT “Above results are for interation ";N0O 
790 $9=S6 

800 NO=#NO0+1 

810 GOTO 510 


820 PRINT 
830 PRINT 
840 PRINT " Blade height = ";H9;" in.” 


850 PRINT “ =xit press. = ";P1;" psia” 
860 PRINT “ Exit temp. =o Tle deg R” 


870 PRINT 
880 PRINT 
890 PRINT 


900 O(K,16)#=P1 
910 O(K,17)#=T1 
920 DISP "“F2 to continue” 


930 PAUSE 
940 {----- Rotor Blade Data -----------------------------5------------------ 
950 Ke=2 


960 PRINT “Input ROTOR blade data from TURB3:” 

970 INPUT “Enter number of blades (z): ”,Z1 

980 INPUT “Enter throat width (a): ",A 

990 INPUT “Enter axial chord (b): ",B 

1000 INPUT “Enter blade spacing (S): ",S 

1010 INPUT “Enter blade chord (c): ",C 

1020 INPUT "Enter trailing edge thickness (ts): ",T7 
1030 INPUT “Enter maximum blade thickness (tmax): ",T8 
1040 INPUT "Enter tip clearance (delta t): ",T9 

1050 INPUT “Enter ROTOR profile loss (fig 15, ref: 1174VA1): ",S1 
1060 SS8"3*S1 

1070 NO=1 

1080 G7=#(G9-1)/(GS+1) 

1090 Y8=M4"2*G7 

1100 YS-Y8/(1-S9) 

1110 T4=(1-G7*M1“°2)/(1-G7*M3~°2) 

1120 P4=(T4/T5)*(G9/(G9-1)) 

1130 RS@P4*P5*RO/TS 

1140 W3=VO*SQOR(T4) 

1150 P6=(1-Y9)~(G9/(G9-1)) 

1160 T6=1-Y8 

1170 P2=P6*P4*P1 

1180 T2=T6*T4*TO 

L1iSO te ==--—-= Re into ROTOR 

1200 M8=1.153E-5*.06333*SQR(T1)/(198.72/T1+1) 

1210 Y7=M43°2*G7 

1220 R9=SQR(Y7)*W3*R1*C/ (M8*12) 

1230 Q8=2=R3*W3*SQR(Y9)*(1-Y9)°(1/(G9-1)) 

1240 D8=B4 

1250 D7=B3 

1260 M=SQR( (T4/T5-1)*2/(G9-1)) ‘ 
1270 PRINT 

1280 PRINT 

1290 PRINT “ROTOR Blade Analysis:" 

L300 “PRINT y= oe ee ae es 
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1310 PRINT 

1320 GOSUB Blsding_ loss 

1330 IF ABS(S9-S6)<.002 THEN 1380 

1340 PRINT “Above results are iteretion “;NO 
1350 SS=S6 

1360 NO=#NO+1 

1370 GOTO 1100 ° 

1380 PRINT 

1390 PRINT 

1400 PRINT ” Blade height = ";H9;" in.” 
1410 PRINT " Exit press. = ";P2;" psia” 
1420 PRINT " Exit temp. = ";T2;" deg R"” 
1430 PRINT 

1440 PRINT 

1450 PRINT 

1460 O(K,16)=P2 

1470 O(K,17)=T2 

1480 DISP "F2 to continue” 

1490 PAUSE 

1500 [----- Calculace Stace Fréelormencee — 339 9 9 sn oo 8 a $9 8 == = === === 
1510 K=#3 

1520 P8=P0/P2 

1530 P9=P2*( (TO-JO) /T2)* (GS/ (G9-1)) 

1540 P9=P0/F9 

1550 E8=T0*(1-(1/P8)*((G9-1)/G9)) 

1560 E8=J0/E8 

1570 E9=TO*(1-(1/P9)*((G9-1)/G9)) 

1580 E9=J0/E9 


1590 PRINT 
1600 PRINT “Stage Performance:” 
1610 PRINT "-----------------=" 
1620 PRINT 


1630 PRINT ” Pressure Ratio (T-S) = ";P8;" Efficiency (T-S) = ";E8 
1640 PRINT ” Pressure Ratio (T-T) = ";P9;" Efficiency (T-T) = ";E9 
1650 PRINT 

1660 FRINT 

1670 O(K,1)=P8 

1680 O(K,2)=E8 

1690 O(K,3)=P9 

1700 O(K,4)=E9 

1710) = [----- Prats hee el = 9 = a 6 9 6a Se a a= == = 6 = a = Se ee 
1720 PRINT "Data to be printed on Printer." 

1730 PRINT "-- Ensure peper is correctly set, press F2 to continue.” 
1740 PAUSE 

1750 PRINTER IS 711 

1760 PRINT 

1770 PRINT 

1780 PRINT TAB(27);"Single Stage Axial Turbine Design” 

PoaUmER INT 2ADC 2/7 ) > =——<<— == <<< <===—=-=———--— = = == . 


1800 PRINT 
1810 PRINT 
1820 PRINT TAB(41);"Stator”;TAB(61); “Rotor” 
1830 PRINT TAB(41);"------";TAB(61);"----- " 
1840 PRINT 


1850 PRINT USING "15X,K,11X,5D,15X,5D";:"No. of Blades";:0(1,8);0(2,8) 
POGUMSERINI USING "15X ,K": °--<---------- ° 

1870 PRINT 

1880 PRINT 

1890 PRINT TAB(16);"Blade geometry (inches)” 

1800 PRINT TAB(16); "secre eore------ : 


1910 PRINT 

1920 Formatli: IMAGE 15X,K,5X,D.3D,14X,D.3D 

1930 PRINT USING Formati;”"Blade Height T2OCl.4), 062.4) 
1940 PRINT USING Formatl; "Exit Width ~,0C1,39),0€2,9) 
1950 PRINT USING Formatl; "Axial Chord Y OCH 10), O¢2, 10) 
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1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


PRINT USING Formatl1;"Spacing wr OCL, 11). e202, 22) 


PRINT USING Formatl1; "Chord “O01 ,12).062. 12) 
PRINT USING Formati;"T.E. Thickness me OC1, 137,023) 
PRINT USING Formati1;"Max. Thickness *",0(01,14),0(2,14) 
PRINT USING Formati1;"Tip Clearance * ,OC16 15) 5002.15) 
PRINT 

PRINT : 


FormatZ: IMAGE 15X,K,5X,D.4D,13X,D.4D 
PRINT TAB(16);"Blade Row Performance” 
PRINT TAB(18) ; “orcrrrr soos osrssrerr= n 
PRINT USING Format2;"Ref. Profile Loss " OCl.t) OCzZ-1> 


PRINT USING Format2;"Tot. Profile Loss "OC C2) OCZ7 2) 
PRINT USING Format2;"Sec. Flow Loss " OC1,3),0(2,3) 
PRINT USING Format2; "Mixing Loss ",0¢€1,4),0¢2,4) 
PRINT USING Format2;"Tip Clearance Loss ",0(1,5),0(2,5) 
PRINT USING Format2;"Total Loss Coeff. ",0€1,6) ,0¢2,6) 
PRINT 


Format3: IMAGE 15X,K,5X,3D.2D,14X,3D.2D 

PRINT USING Format3;"Exit Pressure (psia)”,0(1,16),0(2,16) 

PRINT USING Format3; "Exit Temp. (deg R)",O¢1,17),0(2,17) 

PRINT 

PRINT 

PRINT TAB(16);"Stage Performance”; TAB(39) ;"Total-Total":;TAB(59);""Tot-Static” 
PRInte Tan ( 16). ==—=—=-—---=---=-—= PAD Co 00 ae "+ TAD C59) 4. seen ee oe ; 
PRINT 

PRINT USING Formati1;"Pressure Ratio *SOC325) 10031) 

PRINT USING Format2; "Efficiency "2063 44) ,OC3, 2) 

PRINTER IS CRT 


GOTO 2740 
| cma Blading loss subroutine Gmewewwee—e. ese CT ene SSE 


Blading loss: ! 


{----~ Total Profile Loss ---~-- 

PRINT "Re = ";R9 

INPUT “Enter K(Re) (fig 23, ref: GA1O74VAZ): ",Ki 
PRINT “Mach# = ";M 

INPUT "Enter K(M) (fig 18, ref: 1174VA1): ",K3 
K221+2*(T8/C- .2) 

$22S1*K1*K2*K3 

W9=WO*144/(Z1*Q8*A~ 2) 

HOwA* (W9O* (1+. 77*S2)+.025*S2*D8) 

{----- Secondary Flow Loss ----- 
H5=(S-T7)*COS(D7)/H9 

$3*#S2* .0323*D8*H5*(1+.962*S2) /(1-.03*D8*H5*S2) 
PO Mixing Loss ----- 
$4=(T7/S+.962*S2)/(1+.962*S2) 
$4=*(COS(D7)*S4/(1-S4))*2 

$42S4/(1+S4) 

{====s Tip Clearance Loss ----- 

D6=D7-D8 

D5=ATN( (TAN(D6)+TAN(D7))/2) 
$5=C0S(D7)°2*(ABS(TAN(D6)-TAN(D7))“1.5/COS(DS5)) 
$52*2.26*S5*T9/ (H9*SQR(B/S) ) 
$5*S5/(1+S5) 

(== — = Total Losses ----- 
$6=S2+S3+S4+S85 

PRINT "Ref. Profile Loss a 
PRINT “Tot. Profile Loss = 
PRINT "Sec. Flow Loss 2 "°S3 
PRINT "Mixing Loss . 
PRINT "Tip Clearance Loss = 
PRINT 

PRINT " Total Loss = ";S6 
O(K,1)=S1 

O(K,2)2S2 

O(K,3)=S3 
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2610 O(K,4)2S4 

2620 O(K,5)#S5 

2630 OCK,6)=S6 

2640 O(K,7)=H9 

2650 O(K,8)=Z1 

2660 O(K,9)=A 

2670 OCK,10)=B 

2680 O(K,11)85 

2690 O(K,12)sC 

2700 O(K,13)#T7 

2710 OCK,14)=#T8 

2720 O(K,15)=T9 

2730 RETURN 

2740 DISP “F2 to exit, F3 for another run” 
2750 PAUSE 

2760 PRINTER IS CRT 

2770 LOAD “DESIGN MENU", 10 
2780 END 
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10 !Program: DESIGN MENU 

20 !Description: Program to provide Function Key menu selection of programs. 
30 ! 

40 CLEAR SCREEN 

50 PRINTER IS CRT 

60 KEY LABELS ON 

70 ON KEY 1 LABEL "R_4431T" GOTO R_4431t 

80 ON KEY 2 LABEL "A_4431T" GOTO A_4431t 

90 ON KEY 3 LABEL “TURB3" GOTO Turb3 

100 ON KEY 4 LABEL "“TURB4" GOTO Turb4 

110 ON KEY 5 LABEL “ " GOTO Hold 

120 ON KEY 6 LABEL “ "“ GOTO Hold 

130 ON KEY 7 LABEL “MAIN MENU” GOTO Main 

140 ON KEY 8 LABEL “EXIT MENU" GOTO Exit 

150 ! 

160 PRINT “Turbo-propulsion Design Programs" 

170 =PRINT 

180 PRINT “Item: Select Function Key" 
190 PRINT 

200 PRINT ® R_4431T: Performance Calculations Fi’ 
210 #£=xX9PRINT “ (Iterste on R*)” 

220 PRINT “ A_4431T: Performance Calculations E27 
230 PRINT " (Iterste on Alphal)" 

240 PRINT “ TURB3: Draw Blade Profiles Fo. 
250 PRINT * TURB4: Blade Height and Loses Fa" 
260 PRINT 

270 PRINT " Main Menu F?™ 
280 PRINT ” Exit Menu FS" 
290 ! 

300 Hold: ! 

316 GOTO Hold 

320 R_4431t: ! 

330 LOAD “R_4431T",10 

340 A_4431t: |! 

350 LOAD "A_4431T",10 

360 Turb3: ! 

370 LOAD "TURB3”, 10 

380 Turb4: ! 

390 LOAD "“TURB4",10 

400 Main: |! 

410 MASS STORAGE IS "/WORKSTATIONS” 

420 LOAD “AUTOST”, 10 

430 Exit:CLEAR SCREEN 

440 END 

Figure D13 TPL Program: DESIGN MENU 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
-520 
530 
540 


{Program: SCAN 

{Descrip: Reeds volteges from designeted scanivelve through scanner #1 
! end prints to CRT port # end volteges in pressure (in. Hg). 
tDevices: HP3495A(701) #1, HP3456A(722), HG-78(707), Scenivelve(1-5) 
!Modi fy: Using Molye routines. 


tNotes: Devices HP3495A end HG-78 use specific communicetion formats 
! in the OUTPUT stetements by utilizing the imege form USING. 
! 

! BP3495A: OUTPUT 701 USING "DDD"; V+9 

! HG-78: OUTPUT 707 USING "#,K";V 

t 

DIM Press(1:50) {Assign errey in Memory. 


{Designete Scenivelve: 
INPUT "Input Scanivelve, First port, Last port:”",V,First,Lest 
! 


OUTPUT 722;"8STG1OSTIT3” {Set-up HP3456A DVM. 

CLEAR 701 tReset HP3495A Scanner. 

! 

FOR Port_reqd=First TO Last fRoutine to reed pressure velues. 
GOSUB Reed {Subroutine to reed Scenivelve 
WAIT .5 {port number from HG-78. 

OUTPUT 701 USING "DDD"; V+9 {Set Scanner connect DVM to HG-78 
TRIGGER 722 {Trigger DVM to reed Scenivelve. 
ENTER 722;Press(Port_reqd) IDVM reeds velue, and writes to 
CLEAR 701 {HP9000 memory. Scenner is reset. 

NEXT Port_reqd 

CLEAR 722 {Reeet DVM. 

t 

PRINT "PORT #",”° PRESS (IN. H20)”" tRoutine to print reeulte to the 

PRINT {8P9000 CRT. 


FOR I=Firet TO Leet 
PRINT I, Preee(I)*100000 
NEXT I 
t 
GOTO Finish 


[ eawenwaw ew END) OF MAIN PROGRAM*® * 8a xen aweanannannannkankknkhhkhkhhknhnnhhh ahhh 


! 
{ ***#enuweweweSUBROUTINE READ AND POSITION SCANIVALVE WkAEKKHAKKKHKKKHHKKKKh ee 


Reed: ! 
OUTPUT 707 USING "#,K";:V tRoutine to cell HG-78, esk for the 
PO=SPOLL (707) {current port essigned, reed the port 
L=BINAND(PO,15) Inumber, end convert it to decimel 
T=SHIFT(PO, 4) {formet. 
M=-BINAND(T, 7) 
Port_reed=10*°M+L !Scanivelve port number in decimel 
CLEAR 707 {format. . 
IF Port_reed=Port_reqd THEN Exit {Exit subroutine if reqd port selected 
OUTPUT 701 USING "DDD":;V-1 tAdvance S/V to next port : 
CLEAR 701 'Reset Scenner 
WAIT .1 
GOTO Reed {Loop to Reed for another port reeding. 
Exit:RETURN 
{wean nh ae ew ENT) OF SUBROUTINES £2 8% 8 eee eee naw KKKKNHHHHWHRHNHAKH AH 
Finish:.! 
END 
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!Initielize graph routine 

'Length of X-exis 

{Length of Y-axis 

{Character ref pt:top center 

{Move cursor to screen Loc for lLebels 
!Sizes Labeling 


'Move cursor to bottom center screen 
!Charecter ref pt:bottom center 


'Desig degrees for LDIR 
{Sets Y-axis Label on end 


{Reset Label to horizontel orientation. 
{Chr ref pt:left center 
{Sets greph screen size 
{Box around VIEWPORT 
{Set axis lengths in VIEWPORT 
{Axes intersect et lower Left 
{Axes intersect et upper right 
{Create dot grid background 
{So labels can print outside VIEWPORT 
{Axes label size 


Plot 


10 SUB Plot 
20 ! Subroutine to display plot screen, less the plots of any curves 
30 ! for the specified variables in the COM /Plot_labels/ line. 
40 COM /Plot_labels/ Xo,Xf,Yo,Yf£,Dx,Dy,TitleS,X_labelS,Y_labelS 
50 CLEAR SCREEN 
60 KEY LABELS OFF 
70 GINIT 
80 X_range=Xf-Xo 
90 Y_range=Yf-Yo 
100 LORG 6 
110 MOVE 100*RATIO/2,100 
120 CSIZE 3 
130 LABEL TitleS {Plot title 
140 MOVE 100*RATIO/2,0 
150 LORG 4 
160 LABEL X_lLabelS !X-axis Label 
170 DEG 
180 LDIR 90 
190 LORG 6 
200 MOVE 0,50 
210 LABEL Y_labelS {Y-axis Label 
220 £LDIR O 
230 LORG 2 
240 VIEWPORT 10,90*RATIO, 10,90 
250 FRAME 
260 WINDOW Xo,Xf,Yo,Yf 
270 AXES X_range/Dx,Y_range/Dy, Xo, Yo 
280 AXES X_range/Dx,Y_range/Dy,Xf,Yf 
290 GRID X_range/Dx,Y_range/Dy, Xo, Yo,Dx,Dy, .001 
300 CLIP OFF 
310 CSIZE 3.0,.4 
320 LORG 6 iNumber X-axis 
330 FOR I=Xo TO Xf STEP X_range/Dx 
-340 MOVE I, Yo~.01*Y_ range 
350 LABEL USING "#,K";T 
360 NEXT I 
370 LORG 8 {Number Y-axis 
380 FOR I=Yo TO Yf STEP Y_range/Dy 
390 MOVE Xo-.01*X_range,I 
400 LABEL USING "#,K";I 
410 NEXT I 
420 CLIP ON 
430 ! 
440 SUBEND 
Figure D15 TPL Subprogran: 
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10 !1DateS=FNDateS ( TIMEDATE) 

20 DEF FNDateS (Seconds) 

30 Julian=Seconds DIV 86400-1721119 
40 Year=(4*Julian-1) DIV 146097 
50 Julian#=(4*Julian-1) MOD 146097 
60 Day=Julian DIV 4 

70 Julian=(4*Day+3) DIV 1461 

80 Day=(4*Day+3) MOD 1461 

90 Day=(Day+4) DIV 4 

100 Month#(5*Day-3) DIV 153. ! Month 
110 Day=(5*Day-3) MOD 153 

120 Day=(Day+5) DIV 5 { Day 
130 Year=100*YeartJulian 

140 IF Month<10 THEN 

150 Month=“Month+3 

160 ELSE 

170 Month=Month+3 

180 Year=Yeartl 

190 END IF 

200 YearS=VALS (Year) 

210 IF Month<10 THEN 

220 MonthS#"0"&VALS (Month ) 

230 ELSE 

240 MonthS=VALS (Month ) 

250 END IF 

260 IF Day<10 THEN 

270 DayS="0"&VALS (Day) 

280 ELSE 

290 DayS=VALS (Day) 

300 END IF 

310 DS“YearS8[(3, 4)&MonthS&Day$ 

320 RETURN DS 

330 FNEND 

Figure Dl16 TPL Subprogram: 
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!Program:FILE XFER 

1Description: transfers selected files to a selected directory, and 
! PURGES the same file if desired. 

ON ERROR GOTO Error 

CLEAR SCREEN 

DIM Directory1S$(35] 

DIM Directory2$8(35) 

PRINT “This program transfers files from an existing specified INITIAL directory” 
PRINT “to a NEW directory." 

INPUT “Initial Directory? (ex. '/’,' /WORK/')",Directoryl1$ 
INPUT "New directory? (ex. '/','/WORK/')"” ,Directory2$ 
CLEAR SCREEN 

CAT Directory13 


Transfer: ! 


INPUT "File for transfer (CAT to print directory, QUIT to Exit)",Files 
IF FileS="QUIT” THEN Finish 
IF FileS="CAT” THEN 
CLEAR SCREEN 
CAT Directory1$ 
GOTO Transfer 
END IF 


Copy: |! 


COPY Directory1S&FileS TO Directory2S&FileS$ 
PRINT "File "“;Directoryl1S&FileS;" transferred to ";:Directory2S&FileS 
INPUT “Purge this file from current directory? (Yes=1 No=0)",Del 
IF Del@=1 THEN 
PURGE Directory1S&FileS 
END IF 
GOTO Transfer 


Error: ! 


IF ERRN@=54 THEN 
PRINT "File: ";:Directory2S&FileS:” already exist." 
INPUT "Do you want to purge? (0"No 1l-Yes)",File purge 
IF File purge=1 THEN 
PURGE Directory2S&FileS 
PRINT "File: ";Directory2S&FileS:;" purged.” 
GOTO Copy 
ELSE 
PRINT “File: ";Directory2S&FileS:" NOT purged.” 
END IF 
END IF 
GOTO Transfer 


Finish: ! 


CLEAR SCREEN 
END 


Figure D17 TPL Program: FILE _XFER 


INS 


'Program: MAIN MENU returns working window to the Main Menu 
CONTROL CRT,5;4 'Reset screen color to Green. 


MASS STORAGE IS "/WORKSTATIONS" 
LOAD "AUTOST", 10 
END 


Figure D18 TPL Program: MAIN MENU 
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